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Todos los ordenadores disponen de una gama de fun- 
ciones incorporadas, mandatos que pueden usarse 
para transformar un número en otro. El resultado de las 
funciones puede usarse posteriormente en un progra- 
ma. SQR (Raíz Cuadrada) o INT (Entero) son ejemplos 
de funciones pre-programadas en el Spectrum. Usan- 
do estos mandatos, se toma un número y se opera so- 
bre él para producir otro número. 

La gama de funciones del teclado en el Spectrum es 
muy amplia. Pero si quiere usar una función que no apa- 
rece en el teclado, no es necesario cada vez teclear 
una Cadena de instrucciones. Puede programar el 
Spectrum para realizar secuencias específicas de cál- 
culos. Estas funciones son “llamadas” por el mandato 
FN (FuncióN) y definidas por el mandato DEF FN (DE- 
Finir FuncióN). 


Cómo escribir una función 

Para usar una función, primero debe definir qué ha de 
hacer. Esto se consigue con una sentencia de defini- 
ción. Por ejemplo: 


120 DEF FN a(x)=4x*x+36 


define una función llamada “a”. El número sobre el que 
opera una función se llama su argumento. Aquí, el ar- 
gumento de la función es x. La función primero multi- 
plica por 4 cualquier valor dado de x y luego le suma 
36. Si quiere poner en un programa el número 10 de la 
función, tendría que hacerlo usando la palabra clave 
FN, así: 


200 PRINT FN a( 10) 


Esto imprimiría el valor de la función para x=10, es de- 
cir 4*10+36, o sea 76. 

DEF FN se obtiene pulsando CAPS SHIFT junto 
con SYMBOL SHIFT, seguido de nuevo por SYMBOL 
SHIFT a la vez que la tecla 1. Con el mismo procedi- 
miento, pero empleando la tecla 2 en vez de 1, se pro- 
duce FN. 

Una vez definida una función en un programa, Vd. 
puede usar ésta y su argumento como cualquier otro 
número o variable numérica. Por ejemplo, se pueden 
sumar, restar, multiplicar y dividir funciones y sus ar- 
gumentos a la vez, e incluso hacer que las funciones 
operen sobre números que han sido producidos por 
funciones. A menos que haga investigación matemáti- 
ca es poco probable ir más lejos, pero para tareas más 
sencillas las funciones son fáciles de usar y útiles para 
hacer más sencillos los programas. 


¿Por qué usar una función? 

El siguiente programa muestra una manera sencilla de 
poner a trabajar funciones para producir un resultado 
numérico que después se imprime. 


PROGRAMACIÓN DE FUNCIÓN DE CONVERSIÓN 


10 PRINT A 
tres conversa1c 
29 P 


Y ¿"Gallons to 11 
$ Pe 

ME ¿DI CERES 
+ 

E 


EXE REEAEZRS 
30 DEF FN < E 
a 
RINT AT. _39,121:1;“* 
a PRENTIOT 20,0" 
o” 
60 PRINT AT 12,11; 
ctt3)31/190;5" L1atcres.” 


rn 


Galtons to litres conversion 
EXE EA AERAEZEAEARAEAEAEAELEEZ 


10 gatlioms 
are equivalent to 
4S.S litres 


El programa realiza una conversión. La función que 
realmente hace la conversión está definida en la línea 
30. La línea 40 espera a que Vd. teclee el número de 
galones, que entonces se convierte en el número equi- 
valente de litros por FNc(1) en la línea 60. Multiplicar 
y dividir por 100 puede parecer extraño, pero es una 
forma de producir una respuesta con dos decimales 
con INT. Si usa INT sobre el valor sin multiplicar, se eli- 
minarían los decimales, reduciéndose así la exactitud. 

Tomarse la molestia de usar una función aquí, puede 
parecer innecesario y de hecho es improbable que use 
FN en un programa sencillo. Pero imagine lo que su- 
cedería si quisiera hacer el cálculo varias veces en di- 
versos lugares de un programa y con números diferen- 
tes. Cuando la función es larga y complicada, el defi- 
nirla una vez le permite escribir y comprobar las líneas 
de cálculo más sencillamente. FN es como una subru- 
tina de un mandato que sólo trata con números. 


Como en realidad una expresión que contiene FN re- 
presenta un número, Vd. puede usarla para sustituir 
cualquier clase de cálculo complejo. Cuando escribe 
sus propias funciones, realmente pe dando al ordena- 
dor funciones que su lenguaje de programación resi- 
dente (BASIC) aún no tiene; extendiendo las capacida- 
des del lenguaje. 


Secuencias de cálculo con funciones 
Imagine que quiere calcular el coste de algo que se 
vende por superficie —quizá moqueta para una casa. 
Necesitaría multiplicar el ancho y largo de cada habi- 
tación para obtener su área, y luego multiplicarlo por 
el coste de moqueta por metro cuadrado. Si designa 
con X e Y el largo y ancho, y con C el coste unitario, 
entonces el coste por habitación se calcularía por 
QSYM)*C. 

En el siguiente programa se calcula el coste de cada 
habitación mediante una función. Ésta se define en la 
línea 190, y se usa en las líneas 180 y 200: 


PROGRAMA CALCULO DE MOQUETAS 


Met _PRINT AT 18,1 


tio” IMPUT 
S;x 
ot INPUT 


PRINT AT 
PRINT AT 


serott”r7 


SERIAS 150: PAPER 0: BORDER 
pot ED TE AT 6, ¿"LENGTH = ";x;A 
186 ¿ ENPUT "lost PER SOUARE METR 
170 PRINT AT +.3;"COST PER se 

RE METRE= *“: e 
180 PRINT Ár 


DEF FN 


T 


Las líneas 20 a 130 crean una pantalla gráfica que pro- 
duce un boceto de la habitación, y después espera a 
que Vd. introduzca (ENTER) valores para el ancho y lar- 
go. Una vez hecho esto, el programa introduce (INPUT) 
los valores y después borra la pantalla. 

La siguiente pantalla le pregunta el precio de la mo- 
queta por metro cuadrado. Una vez tecleado, el progra- 
ma le da el coste de enmoquetar la habitación. La fun- 
ción T da este coste y en la línea 200 se usa para ac- 
tualizar los costes totales. Si Vd. guarda los valores te- 
cleados cada vez que el programa vuelve a la primera 
pantalla, encontrará que la línea de Coste Total (TOTAL 
COST) en la segunda pantalla está actualizada para in- 
dicar el coste total de todos los costes calculados: 


PANTALLAS CALCULO DE MOQUETAS 


COST PER SQUARE METRE= 6.5 
LENGTH= 12.5 
UIDTH= 8 


COST= 650 
TOTAL COST= 17509 


Vd. puede definir una función en cualquier punto de 
un programa, pero si las líneas DEF FN y FN están muy 
separadas en un programa largo, aumentará el tiempo 
de ejecución. En el programa anterior, usar una función 
hace que las líneas 180 y 200 sean menos complicadas 
de lo que serían de otra manera. Ya verá cómo el uso 
de una función simplifica la confección de gráficos. 


AMPLIACION DE DECISIONES 


Las palabras de BASIC IF y THEN permiten que un pro- imagen en r.c y las líneas 180 y 190 producen nuevas 
grama opere de una manera, hasta que se encuentra la coordenadas en las que la línea 220 revisualiza el balón. 
condición especificada por la sentencia IF. Entonces, el Antes de que suceda esto, las líneas 200 y 210 com- 
programa es aciivado para seguir otro curso de acción prueban si el balón ha alcanzado alguna de las pare- 
Pero la capacidad de IF... THEN no se limita a introdu- des del cerco. Examinan la posición del balón para ver 
cir una sencilla decisión de tipo “sí” o "no". Combinan- si el número de fila es uno inferior a la tapa del cerco 
do IF.. THEN con las palabras clave AND y OR puede o uno superior al fondo del cerco, o si su número de 
hacer que acometa situaciones mucho más complica- columna es uno más que el lateral izquierdo o uno me- 
das. Como el BASIC se ha diseñado para reflejar cómo nos que el derecho. Si se satisface cualquiera de estas 
se usan las palabras en el lenguaje corriente del inglés, condiciones, las líneas 200 o 210 invierten el movimien- 
puede usar IF.. THEN justo como lo haría en inglés al to vertical u horizontal del balón | 


describir una serie de condiciones. Aquí tiene un pro- PANTALLA DE REBOTE 


grama que le indica cómo puede llenar la toma de de- 
cisión IF... THEN a un nivel más avanzado 


PROGRAMA DE REBOTE 


PAPER 1: INr 0: 


Suma conjunta de decisiones 

Ahora puede dar un paso más allá del programa ante- 
rior para ver cómo puede incorporar una segunda op- 
ción en una sentencia IF... THEN. El siguiente programa 
describe dos balones que se mueven independien- 
temente 


PROGRAMA DE DOBLE REBOTE (1 


210 IF c=9 OR c=22 THEN LET b=- 
220 PRINT AT ci MN 
r 


a 
230 BEEP_0.1,3% 
2420 GO TO 176 


BORDER 2: PAPER 1: XINK 0: € 


FOR r=S3_TO 185 
PRINT AT 1r,8;"M ;AT ,23;*"8 


¿PRINT AT 3,r+S; "MM; AT 1858,r+ 


pa 
rad 


WN A 


Las líneas 10 a 130 simplemente establecen la pantalla. 
Las líneas 140 y 150 producen una posición inicial al 
azar de un «balón» (un cuadrado) dentro del cerco. Para 
simular el movimiento del balón, la línea 170 borra la 


Este programa es muy similar al primero excepto que 
ahora hay dos líneas que visualizan (PRINT) un cuadra- 
do en números cambiantes de fila y columna. Como an- 
tes, cada cuadrado empieza en una coordenada al azar 
que está definida en las líneas 120 a 150. Los cuadra- 
dos son animados por las líneas 160 a 300 


PROGRAMA DE DOBLE REBOTE (2) 


c=C+b 
d=a4+1 
THEM 
THEM 
THEM 


THEN 


RENT AT £,€s5 
E AT Ss,d; 


PIS INT (5+0:5)-1 AND 
1 _AND 
Go TO 


£ 
ce 
$ 1 
BEEP 9.02, 


290 BEEP 0.02.3:8r 
Ss 
3500 GO TO 150 


Se hace que el segundo balón salga en dirección di- 
ferente del primero y a una velocidad vertical lige- 
ramente superior, de forma que los dos balones ten- 
gan mayor probabilidad de encontrarse. De otra for- 
ma se seguirían el uno al otro alrededor del cerco en 
las mismas pistas. En la línea 280 el ordenador toma 
una decisión múltiple acerca de la posición de am- 
bos cuadrados. Sin esta línea, cuando se encontraran 
los cuadrados, simplemente seguirían su camino 
como si nada hubiese sucedido. Esta no es una simu- 
lación muy convincente de lo que realmente ocurri- 
ría, por lo que la línea 280 decide silos cuadrados es- 
tán lo suficientemente próximos como para chocar. 
La línea incluye una decisión IF... THEN con tres AND 
para ver sir y s están bastante juntos y si c y d lo es- 
tán también dentro de los mismos límites. Esto lo 
hace tomando r, por ejemplo, y decidiendo si es ma- 
yor o igual que INT(s+0.5)-1 y simultáneamente me- 
nor o igual que INT(s+0.5)+1. 

Si se cumplen todas estas condiciones, significa que 
los dos balones o bien ocupan el mismo cuadrado o 
son adyacentes, en cuyo caso se supone que han co- 
lisionado. Suena un BEEP y todo el proceso empieza 
de nuevo. 


IF... THEN en programación de juegos 

La toma de decisión por este método es muy útil si Vd. 
quiere saber si dos caracteres ocupan o no la misma 
posición de pantalla. Se suele usar en programas don- 
de un carácter es “barrido” por otro. El siguiente pro- 
grama muestra cómo puede incorporar la técnica en 
un juego sencillo que tiene un número de caracteres 
moviéndose a la vez: 


PROGRAMA DE BASE DE DISPARO 


10 BORDER 1: PAPER 60: 
290 PRINT_AT 19,15; Ll E e 


e 
59 PRINT HE FITO 1 
1F_ r=0 THEN LE r=19 
129 LET r=r-1 
SEEP 0.9 


120 PRINT AT r,16;* 
2, Rbd q 
ís30 IF =3 AND_c=16 OR r=7?_AND 
d= e Then BEEP 0.S,rt2: GO TO 10 
409 GO TO 40 


El programa visualiza una base de disparo en el fondo 
de la pantalla. Dispara hacia arriba flechas contra dos 
flechas horizontales que cruzan la pantalla. La línea 130 
comprueba si las coordenadas de la flecha ascendente 
son iguales a alguna de las dos horizontales. Si lo son, 
el programa retrocede a la línea 10 y empieza de nue- 
vo. Si no, retrocede a la línea 40 y mueve todos los ca- 
racteres un espacio. La línea 100 comprueba si la flecha 
ascendente ha alcanzado el tope de la pantalla. Si es 
así, se lanza una nueva flecha desde la base de dispa- 
ro. Las líneas 60 y 70 comprueban si alguna de las fle- 
chas horizontales ha alcanzado el borde derecho de la 
pantalla. Si es así, su coordenada de columna se res- 
taura a cero. 

Cuando procesa el programa, deberá encontrar que 
la flecha de la base de disparo encuentra su blanco en 
el séptimo paso de la flecha a través de la pantalla. Esto 
sucede porque el programa está trabajando con núme- 
ros fijados. Si en vez de esto utiliza RND (aleatorio), los 
resultados se vuelven impredecibles 


VISUALIZACIÓN DE BASE DE DISPARO 


CAMBIO DE PASO EN GRAFICOS 


Los bucles FOR.. NEXT son muy útiles para repetir una 
secuencia de sentencias de programa un número pre- 
decible de veces. Si quiere aumentar el valor de una 
variable en más de 1 en cada ciclo en un bucle, debe- 
rá reemplazar FOR.. NEXT por una sentencia GOTO 
precedida por N=N+2 o cualquier cambio que se quie- 
ra dar a N. Sin embargo, si ya ha empezado a escribir 
un programa y encuentra que el bucle FOR.. NEXT es 
inadecuado, a veces es difícil y requiere tiempo susti- 
tuir una técnica de programación completamente nue- 
va como ésta. Pero hay una forma mucho más sencilla 
de saltar adelante o atrás en un bucle. 


Cómo cambiar los tamaños de salto con STEP 

La palabra clave del BASIC para esto es STEP, que pue- 
de ya haber encontrado en el Libro 1. Aquí hay un pro- 
grama que usa STEP con gráficos: 


BORDER 1: PAPER 6: INHK 2: C 
O TO 17S STEP <4 


El cursor de gráficos se mueve a cada una de las cua- 
tro esquinas de la pantalla, una detrás de otra. Se dibu- 
ja una línea desde cada esquina a un punto del lado 
opuesto de la pantalla. La separación de líneas está de- 
terminada por el tamaño STEP en la línea 20. STEP 4 da 
los mejores resultados. Esto hace que los valores de y 
sean 0, 4, 8, 12, 16, etc. en vez de que y aumente en 1 
en cada circuito del bucle. 


Uso de STEP para dibujar (DRAW) redes 

Una pantalla que puede obtener usando STEP es una 
red para juegos. Puede obtenerla dibujando una serie 
de líneas entrecruzadas sobre un fondo de contraste. 
Pero en vez de especificar cada línea, puede usar bu- 
cles con STEP que le hagan la mayoría del trabajo: 


PROGRAMA DE RED DE JUEGOS 


SBORDER 6: PAPER 2: INHK 727: € 


FOR _y=25 TO 151 STEP 21 
PLOT 26,y 

DRAW 204,0 

NEXT y 

FOR_x=26 TO 230 STEP 34 
PLOT x,25 

DRAW 0.126 

NEXT x 


Las líneas 20 a 50 dibujan una serie de líneas a tra- 
vés de la pantalla a intervalos verticales de 21. Des- 
pués las líneas 60 a 90 dibujan líneas verticales con 
separación 34. (Las coordenadas y separaciones pue- 
den verse mejor si hace referencia al gráfico de la 
red, de la página 59.) 

El siguiente programa produce. una red de juegos 
con tantas cuadrículas como quiera. El programa le pre- 
gunta qué clase de red quiere (cuántas cuadrículas en 
horizontal y vertical) e introduce esos números en la 
subrutina que permite un modelo generalizado. 

El programa se divide en tres secciones. La primera, 
de entrada (INPUT) (líneas 10 a 100), le pide la infor- 
mación necesaria para la segunda parte del programa. 
Esta, con los números introducidos, calcula las separa- 
ciones entre las líneas dibujadas en la tercera sección 
(líneas 140 a 240). Esto se consigue con la variable w, 
que representa el número de cuadrículas a lo ancho, 
que se divide con el ancho de la pantalla en la línea 
130; y la h, que representa el número de cuadrículas 


de arriba abajo dividido por la altura de la pantalla. 
Con este programa puede obtener una gama casi ili- 
mitada de redes de cuadrados o rectángulos, según los 
valores introducidos: 


PROGRAMA DE REJILLA VARIABLE 


o SORDER 1: PAPER 7: INFK 0: C 

29 PRINT AT 9,9;"Do It Yoursel 

30 PRINT AT 11,11;“"Games Grid” 
150 


AT 9,6;"Enter the gri 
11,4; “How many 3 


13,5; "How many saqu 


UUROVDOW y 
000041900409» 


SEroLi? 


Puede usar este programa como base para obtener un 
gráfico y después visualizar valores en el interior de 
cada cuadrado o rectángulo. Usando la técnica de ma- 
trices (págs. 22-23), puede hacer que los valores del 
gráfico reaccionen con diferentes entradas. 


Cómo visualizar un tablero de ajedrez 

Para conseguir que el ordenador visualice un ajedrez, 
primero puede visualizar cuadrados alternativos blan- 
cos y negros, trabajando de arriba abajo, y después 
simplemente añadir un color a la pantalla con los man- 
datos BORDER, PAPER, e INK: 


PROGRAMA DE TABLERO DE AJEDR 


PAPER 2. BORDER 2: 
FOR r=3 TO 135 


INK. SS: 


Aquí PRINT AT se usa para producir hileras de cuadra- 
dos azul oscuro sobre un fondo cyan. El programa se- 
lecciona un color azul (INK 1) y fija la coordenada de 
la fila más alta del tablero. Habiendo visualizado un cua- | 
drado oscuro, se salta el siguiente, dejándolo en cyan, 
y visualizando otro oscuro en la tercera posición. El ta- 
maño STEP de columna se fijó en 4 para esto. Como 
cada bucle dibuja dos hileras de cuadrados, el tamaño 
4 de STEP de fila salta cada fila. 


Para teclear una información mientras se procesa un 
programa Vd. ha usado —hasta ahora— el mandato IN- 
PUT. Con éste, debe pulsar ENTER después de teclear 
la información. Esto tiene sus inconvenientes. Incluso 
cuando Vd. sabe que debe pulsar ENTER, puede olvi- 
darlo y usando dos teclas en secuencia también retra- 
sa el programa. Es mucho más útil que el ordenador 
responda sin esperar el pulsado de ENTER, como las 
máquinas de los bares responden al pulsado de un bo- 
tón. Para hacer que el Spectrum haga esto use la pala- 
bra clave INKEY$. 


Códigos ASCII 
Todos los símbolos reconocidos por el ordenador —pa- 
labras clave, números, letras, signos de puntuación y 
matemáticos— se almacenan en su interior como nú- 
meros, del O al 255. La mayoría de los ordenadores al- 
macenan estos números según un código llamado AS- 
CI (American Standard Code for Information Interchan- 
ge). ASCII almacena la letra A como 65, el signo + como 
43 y el número 1 como 49. (Ver en pág. 60 la tabla com- 
pleta del ASCIL,) 

Puede ver todos los caracteres que usa el Spectrum 
tecleando el siguiente programa: 


10 FOR n=33 TO 255 


20 PRINT CHR$ n; 
30 NEXT n 


Así, el ordenador toma cada código ASCII uno después 
de otro y visualiza el carácter correspondiente omitien- 
do los «blancos» y códigos de control iniciales: 


JUEGO DE CARACTERES DEL SPECTRUM 


123456759: ;<=3>7 
SRASTUVLIYZ 


RANDOMIZE IF CLS DRAW CLEAR RE 
TURN COPY 


9 Ok, 30.1 


En la figura anterior comprobará que algunos códigos 
representan sólo una letra o número, mientras otros de- 
signan palabras clave completas del BASIC. 


El programa siguiente usa INKEY$ para responder a las 
teclas a medida que se pulsan y después usa números 
ASCII para visualizar un código simple: 


PROGRAMA CODIFICADOR 


PRINT AT 5,10;"TYPE ENCODER 
IF INKEY 


DS 
NKEY 
E 


La línea 10 visualiza el título y las líneas 20 y 30 usan 
INKEY$ para esperar que Vd. pulse una tecla antes de 
continuar. La línea 20 puede chocarle. Cámbiela por: 


20 REM IF INKEY$<>""THEN GOTO 20 


para que no funcione. Encontrará imposible pulsar una 
tecla y obtener un solo carácter en la pantalla. Contra- 
riamente a INPUT, INKEY$ no le espera —comprueba 
si se ha pulsado cualquier tecla y va a la línea siguien- 
te. Así la línea 20 no deja efectuar nada hasta que Vd. 
haya apretado una tecla, después la línea 30 impide el 
procesado hasta que Vd. pulse la tecla siguiente. 

La línea 40 comprueba después el carácter tecleado 
para ver si es un asterisco. Si lo es, el programa termi.- 
na. Si no, la línea 50 convierte su carácter en su código 
ASCII La línea 60 suma 2 al código que tecleó y des- 
pués visualiza el carácter equivalente. Así, el progra- 
ma parece visualizar disparates cuando teclea algo. No 
tiene sentido producir un programa codificador si no 
se puede descifrar el código. Puede transformar el pro- 
grama codificador en uno decodificador insertando: 


10 PRINT AT 5,10; "TYPE DECODER” 
60 PRINT CHR$(n-2); 


Para ver si trabaja intente teclear lo siguiente cuando 
el programa esté en proceso: 


ncotp"va"rtqitco"ykvj"vjg"FM"uetggp"ujqv"ugtkgu 


Comprobación de sus reacciones con INKEY$ 
Vd. puede usar la capacidad de INKEY$ para compro- 
bar el teclado, en combinación con los códigos ASCII, 


para escribir un programa que le permita cronometrar 
la velocidad de sus reacciones. 

Este programa produce un símbolo al azar y después 
mide el tiempo que tarda Vd. en pulsarlo. 


COMPROBADOR DE REACCIONES 


10 BORDER 7: PAPER 7: IMNK 0: € 
AT 3,7; "Test your ref 
AT 109,10;"against the 
AT 12,5; “REACTION TES 


150: CLS 
AT 11,9;"Find this ke 


LET_ R=33+RNDx94. LET nm=9 
BEEP_0.1,508 

PRINT AT 13,16;CHR5%5 1(k) 
LET_n=n+1 

IF INKEYS<>CHAS (kK) THEN 60 


HE A 


130 PRINT_AT 211,5: "You to 
seconds” 


INT (n*2.68))-100;" 


Y OK, 0:1 


You took 1.25 seconds 


0 OK, 1350:1 


Las líneas 10 a 50 visualizan el título y hacen una pausa 
de 3 segundos. Después comienza el juego. La línea 70 
fija k igual a un número al azar entre el 33 y el 127, los 
números de código ASCII para las letras y símbolos del 
Spectrum (excluye los símbolos gráficos y las palabras 
clave). La línea 70 también fija n igual a cero —n se 
usa después para calcular el tiempo empleado en pul- 
sar la tecla correcta. La línea 80 hace sonar un "beep" 
al comienzo del tiempo. La línea 90 visualiza el carác- 
ter equivalente al código de azar encontrado por la 70. 
La línea 110 comprueba si el tecleado ha sido correcto. 
Si no, vuelve a la 90, incrementando n en 1 en cada 
bucle. 

Si el tecleado fue correcto, se calcula el tiempo des- 
de el "BEEP” por (INT(n*2,68))/100 seg. Si quiere saber 
por qué ésta es la línea a usar, intente insertar en el pro- 
grama la línea siguiente: 


105 IF n=1000 THEN BEEP 0.3,20 


Esto permite que cronometre 1000 bucles con su reloj. 
Se tarda aproximadamente 26,85 seg, cada bucle 
0.02685 seg. Para hallar el tiempo empleado, multipli- 
que n por 0.02685. Para limitar el tiempo visualizado por 
la línea 130 a dos decimales, multiplique (n*0.02685) 
por 100(=n*2.685), tome su valor entero (para desechar 
las cifras posteriores a la coma decimal) y finalmente 
divida el resultado por 100. 


Uso de INKEY$ para controlar el movimiento 

Las rápidas respuestas de INKEY$ lo hacen ideal para 
controlar el movimiento sobre la pantalla. En el siguien- 
te programa en vez de ir a través de series predeter- 
minadas de movimientos, el ordenador espera hasta 
que se pulsen la Z o la M y después mueve el carácter 
a la izquierda o derecha respectivamente. Las líneas 
170 y 180 paran el movimiento del carácter más allá 
del borde de la pantalla: 


PROGRAMA DE ANIMACIÓN INKEY$ 


10 BORDER 1: PAPER 
20 DATA 9,9,59,220 

564,2,15,248,32,4,63 
38'DaATA_18,72,79, 

¿250,13,175,123,126 


FOR n=0 TO 


TO 210 
INKEYS<>"'" THEN GO TO 13 


INKEYS5="" THEN GO_TO 140 
INKEYS$="z" THEN LET c=c- 


INKEYS5="m" THEN LET c=c+ 


IF Cc<90 THEN 


LET_c=9 


zp? 


AT 11,c; 
s 
1530 


Si Vd. procesa el programa verá que el carácter res- 
ponde sólo a las teclas Z y M 


El Spectrum usa dos palabras clave para tratar los nú- 
meros aleatorios: RND y RANDOMIZE. Como se vio, 
RND se usa para generar un número aleatorio. Una lí- 
nea como la siguiente: 


80 LET a=RND 


generará un número aleatorio entre O y 0.99999999. 

En realidad, esto no es exactamente así. El Spectrum 
tiene almacenados en memoria 65.536 números diferen- 
tes entre O y 0.99999999 mezclados, sin modelo defini- 
do. Por ello se dice que RND es una función “pseudo- 
aleatoria”. Aunque hay una secuencia para los núme- 
ros, para la mayoría de los fines pueden considerarse 
completamente aleatorias. Como el margen considera- 
do no es de mucho uso se usa una línea como 


100 n=1+INT(2*RND) 


para obtener números aleatorios enteros en otro mar- 
gen. 

La línea anterior produce un 1 o un 2, quizás para un 
programa de “cara o cruz”. 2*RND produce un número 
entre O y 1.99999998, e INT lo redondea al menor ente- 
ro (0ó 1) y sumando 1 se obtiene 1 ó 2. Análogamente, 


100 n=1+INT(6*RND) 


produce números entre 1 y 6 


Cómo iniciar una secuencia “aleatoria” 
La depuración (eliminación de errores) de un progra- 
ma que usa RND puede ser difícil ya que dos RNDs no 
producen el mismo resultado; es más fácil hallar los 
errores si las RNDs producen el mismo número cada 
vez que se procesa el programa. Teclee primero 


PROGRAMA RND 


PRINT_AT 5,3; “PREDICTING RA 
a 


n=1 TO 6 
PRINT AT 2:n+6,11;14:RANO 
NEXT n 


Este sencillo listado produce una serie de seis núme- 
ros aleatorios. En cada proceso del programa debería 
tener una serie diferente de números. Sin embargo la 
pantalla siguiente produce una serie siempre idéntica, 
obtenida añadiendo la línea: 


125 RANDOMIZE 10 


El uso de RANDOMIZE (aparece como RAND en el te- 
clado) produce en cada proceso los mismos números; 
trabaja controlando dónde inicia RND la selección en- 
tre sus 65.536 números almacenados. 


PANTALLAS REPETICIÓN/AZAR 


PREDICTING RANDOM NUMBERS 


.5455954 
. 253054 

«4900513 
«7611054 
.0970154 
«2851257 


PREDICTING RANDOM NUMBERS 


0.17602539 
0.17502539 
0.17602539 
0.17602539 
0.17602539 
0.17602559 


9 OK, 150: 1 


La segunda pantalla muestra lo que sucede al mover 
RANDOMIZE. Usando el editor, cambie la línea 125 al 
número de línea 135 y borre 125. Debería obtener el 
mismo número (0.17602539) cada vez. RANDOMIZE 10 
inicia la secuencia aleatoria en el décimo número al- 
macenado en cada proceso. Vd. puede seguir RANDO- 


MIZE con cualquier número entre 1 y 55536. RANDO- 
MIZE por su cuenta usa el tiempo desde que se conec- 
tó el ordenador para fijar el punto de iniciación para 
RND. Así, usando RANDOMIZE con RND se hace RND 
aun más aleatorio. 


Cómo establecer ventaja en juegos de aventuras 

Haga lo que haga con RND, sólo produce un número 
cada vez. Esto es bueno para programas de cara o cruz 
o de dados en que cada resultado posible tiene la mis- 
ma probabilidad. Pero imaginemos que queremos 
crear probabilidad en un programa de forma que algu- 
nos resultados sean más probables que otros. Así se es- 
criben muchos juegos de aventuras, haciendo los pro- 
gramas más interesantes que los que manejan secuen- 
cias predecibles de sucesos. 

El siguiente programa demuestra cómo, en un juego 
de aventura, puede hacerse que el jugador encuentre 
algunos caracteres o símbolos con más frecuencia que 
otros. Se puede también fijar la ventaja de forma que 
lo más frecuente es que no suceda nada: 


PROGRAMA DE VENTAJA EN JUEGOS 


1,128,1,64,123,128 
3,192,3,160,123,12 
7,224,1,144,122,12 
15,240,1,5,50,128, 
15,240,7,196,2,1 
,240,15,234,2, 
,»224,19,144,2,1 
,¿128,123,128,5S, 


a 


> 


* 


1 PRA Dr JUNO 
Ql+ + + 12 (> Ar As > 


1 
A 
6 
A 
40 
A 
4 
A 
Ea] 

R 


pa 


RERD O0,pP V,W,X,Y, 


TOTOO pp ps ps 
POVOJDUIA 
000000099 


RDE ¿ PAPER _ 6: CLS 

2509 PRINT INK 7 AT SC AZ 
EXA ER EXA 

'260 PRI INK 3; AT 14,5; "2:12:52 
EXA ELA ER 

¿270 PRINT INK 3S;AT 19,14; "+:+:+% 


280 PRINT_INK 0; Li Z> ¿a 8raés” 


TY ES ae: qe 
y. CET. tun 


«doble probabilidad que el tesoro. 


3009 FOR n=1 TO 100 
310 LET a=INT_ (20%RND+1) 
3 I EN LET AS="A5": LE 


LET As=" 


LET Bs= LE +1 
988. 1 ,2>S THEN LEFT Astiz": 
368 PRINT AT 10,16;A5;AT 11,16; 


70 PRINT AT 12,S;t;AT 12,16;k; 
AT _ 12,26; OS 17,16; ñ 

3808 BEE? .2,15 

390 NEXT ” 


Las líneas 10 a 230 reprograman las teclas A a L con 
los 12 caracteres que componen los tres símbolos del 
juego —un saco de tesoros, un caballero armado y un 
dragón. Cada símbolo se compone de cuatro caracte- 
res, los dos primeros encima de los otros. 

La línea 310 produce un número entre 1 y 20. Si éste 
es l, se elige el símbolo del tesoro. Si es 2 o 3 se elige 
el caballero, y si es 4 o 5, el dragón. Si el número es 
otro cualquiera (representado por cuatro asteriscos), 
no se selecciona nada. Así caballero y dragón tienen 


Cuando se procesa el programa, se hacen 100 selec- 
ciones aleatorias. Los procesos totales de tesoro, caba- 
llero y dragón se muestran incorporados en la panta- 
lla. Se puede cambiar las probabilidades relativas de 
aparición de los tres símbolos cambiando los números 
en las líneas 320 a 350. Insertando una sentencia PAU- 
SE en el bucle, o aumentando la duración del "BEEP” 
en la línea 380, se retarda el programa. Al final de cada 
proceso (RUN), se puede ver con qué frecuencia ha 
elegido el programa cada uno de los tres caracteres. 


PANTALLA DE VENTAJA EN EL JUEGO 


BERARAFTIOAAIEAAAAAIAAIAEIAAIR 


En muchos ordenadores personales el dibujo de cur- 
vas y círculos es un proceso muy complicado. En el 
Spectrum es muy fácil dibujar círculos con el mandato 
CIRCLE que efectúa los cálculos que se tendrían que 
hacer en otro caso. Para ello hay que especificar la abs- 
cisa Xx, y la ordenada y, (referidas a la esquina inferior 
izquierda de la red) y el radio r. La posición y tamaño 
no tienen más limitaciones que los límites de la rejilla 
de gráficos. 


POSICIONES DE UN CÍRCULO 


Con CIRCLE puede producirse cualquier círculo dado por X,y.I 


Abscisa=X 


La línea de sentencia se escribe así: 
CIRCLE 128,88,50 


El centro de este círculo está en el centro de la panta- 
lla (128,88) y el radio es 50 unidades. Así, el diámetro 
horizontal va desde 78 a 178 unidades y el vertical, de 
38 a 138. 


Obtención de modelos con CIRCLE 
Se pueden hacer modelos con el mandato CIRCLE se- 
leccionando al azar las coordenadas del centro de un 


círculo. El programa siguiente construye una pantalla 
por este método: 


PROGRAMAS DE CÍRCULOS CONCÉNTRICOS 


¿BORDER 3: PAPER 6: 


FOR n=1 TO 5 
380 LET x=S0+INT (155%RNMD) 
CEET Y=SQ+INT_ (752END) 

FOR f=10 TO 380 STEP 4 


INK 0: C 


CURVAS Y CIRCULOS 


PANTALLA DE CÍRCULOS CONCÉNTRICOS 


Las líneas 30 y 40 producen un par de coordenadas al 
azar, x e y, tales que ninguna diste menos de 50 de cual- 
quier borde de la pantalla, ya que los círculos han de 
tener radio 50. El bucle de la línea 50 a 70 dibuja repe- 
tidamente círculos concéntricos pero de radio gradual- 
mente creciente (r). La línea 80 inicia de nuevo el pro- 
ceso entero pero con otro par de coordenadas alea- 
torias. 

Vd. puede cambiar el radio máximo del círculo y el 
tamaño STEP entre radios cambiando la línea 50: 


50 FOR r=10 to 20 STEP 3 


o incluso STEP 2, que produce modelos más pequeños. 


Dibujo de arcos y ondas 

Un arco (parte de una circunferencia) puede obtenerlo 
en el Spectrum, pero no debe usar CIRCLE para ello. 
Con el mandato DRAW x,y,a se dibuja un arco de cír- 
culo que empieza en el último punto marcado (PLOT) 
o dibujado, y que termina en el punto de coordenadas 
X,y. El valor "a" es el más complicado. Es el ángulo ba- 
rrido por el arco (imaginado como parte de un círcu- 
lo). Puede ver trabajar el mandato tecleando las dos lí- 
neas siguientes (encontrará la tecla Pl encima de la M): 


PLOT 10,88 
DRAW 230,0,P1/4 


Esto produce una figura similar a un trozo de cable 
suspendido por ambos extremos y el centro hundi- 
do. La primera línea marca un punto cerca del borde 
izquierdo en la mitad de altura de la pantalla. La se- 
gunda, dibuja un arco desde aquel punto, en sentido 
contrario a las agujas del reloj, al (10+230),(88+0) o 
sea 240,88. 


Que el arco forme un hundimiento ligero o un semicír- 
culo viene determinado por el valor de “a”. Este ángu- 
lo se mide en radianes, no en grados. Los radianes son 
otra forma de medir ángulos, basada en la geometría 
del círculo. En grados sexagesimales un círculo comple- 
to = 360 grados = 2xPl radianes. Pl es una constante ma- 
temática cuyo valor aproximado es 3,14159625... (véalo 
tecleando PRINT PI). En la proporción entre la longitud 
de la circunferencia de un círculo y su diámetro. Natu- 
ralmente, se tendrá PI/2 rad.=90 gr.=1/4 de círc. y 
PI/4=45 gr.=1/8 círc., etc. 


Ahora, sin borrar el primer arco, intente añadir: 


PLOT 10,88 
DRAW 230,0-PI/4 


El segundo arco se dibuja entre los dos mismos pun- 
tos formando una figura como un ojo. Puede producir 
figuras usando arcos que den modelos de ondas 


PROGRAMA DE MODELO DE ONDAS 


BORDER 1: PAPER 1: INK 7: € 


PLOT x,y 
609 DRAYWY 15, 


La línea 20 fija la primera ordenada y de las ondas. La 
línea 40 escalona la abscisa x a través de la pantalla. Es 
importante que el tamaño STEP sea el mismo que las 
longitudes x combinadas de las dos partes de la onda 
formada por cada bucle. La línea 50 marca un punto en 
x, y fijados al comienzo de cada bucle. La línea 60 di- 
buja un pequeño arco de círculo y después un segun- 
do arco del mismo tamaño. El primero se curva hacia 
abajo y el segundo hacia arriba, construyendo una fila 
de ondas. Cuando ésta se completa, la línea 80 mueve 
la ordenada y hacia abajo. El programa continúa hasta 
que las ondas alcanzan la parte baja de la pantalla. 


Programación de curvas progresivas 

En la página anterior se usó CIRCLE para obtener cír- 
culos concéntricos al azar. El programa siguiente dibu- 
ja semicírculos al azar, progresivos hacia arriba, abajo, 
derecha o izquierda, sobre la pantalla. 


PROGRAMA DE CURVAS PROGRESIVA 


BORDER. 1: PAPER 6: 


20 PLOT 123,589 
30 LET x=0: LET 3y= 
409 LET q=1+INT (4%RND) 
SO IF q=1 THEN LET x=10 
609 IF q=2 THEN LET x=-10 
70 IF 3=3 THEN LET 3y=10 
3509 IF 3=4 THEN LET y=-10 
Y x,y, 
43 o 


Intente cambiar el tamaño de arco en las líneas 50 a 80 
para efectos diferentes. Verá que si reduce el tamaño 
a 4, semeja una letra v. 


La mayoría de las figuras que ha dibujado hasta aquí 
han implicado resolver antes dónde se encontraban los 
puntos clave de la figura (esquinas de un cuadrado, 
por ejemplo), y después dibujar líneas entre ellos. Afor- 
tunadamente, pueden dibujarse modelos geométricos 
más complicados usando funciones que hagan todo el 
trabajo por Vd; no tiene que marcar ningún punto. Con 
programas muy cortos puede obtener algunos gráficos 
llamativos usando las funciones SIN (abreviatura del 
término matemático seno) y COS (abreviatura de co- 
seno ). 

Los programas de estas dos páginas combinan SIN 
y COS, por lo que conviene saber qué significan en 
realidad. 


Otra manera de dibujar círculos 
Puede dibujar círculos sin usar CIRCLE (pág. 16), usan- 
do SIN y COS. Aunque el programa es más largo, le per- 
mite obtener algunos gráficos más complejos. 
Refiriéndonos a una parte de círculo, cada punto de 
él puede relacionarse con el ángulo que forma. 


COORDENADAS DEL CIRCULO 


Longitud radio=r 


A rn 


Radio horizontal 


Las distancias x e y pueden expresarse de otra forma: 
cada ángulo a tiene un valor para su seno y su coseno, 
y las coordenadas del punto del círculo valen res- 
pectivamente: 


r*xCOS(a) r*SIN(a) 


Sabido esto, puede hacer que el ordenador dibuje un 
círculo, marcando todos los valores posibles del ángu- 
lo “a”, mediante un bucle, el programa utiliza las fun- 
ciones SIN y COS para dibujar las coordenadas de to- 
dos los puntos del círculo. 

Se puede hacer esto, más fácilmente utilizando CIR- 
CLE. En el programa siguiente se hacen gráficos que 
CIRCLE no puede realizar. La línea 20 fija en 80 el ra- 
dio del círculo. El ángulo ha de variar de cero a 360 
grados. 


BORDER 1: 
LET r=830 


PAPER 2: INK 7: O 


350 FOR _a=0 TO 2%P1I STEP PI-120 
40 PLOT rzC0OS 4a)+128,r+SIN ta 
3) +89 
O NEXT a 


Como las funciones SIN y COS del BASIC operan so- 
bre ángulos en radianes, igual que el mandato DRAW 
x y a de la página 16 la gama de ángulos utiliza PI. En 
la línea 30 se ha elegido STEP PI/120 (línea 30) que da 
puntos suficientemente juntos, pero acorta el procesa- 
do del programa. 


Modelos con SIN y COS 

En el programa anterior cuando x=0, y tiene el valor 
máximo y viceversa. ¿Qué sucede cuando el ángulo 
afectado por SIN y COS no es exactamente a sino uno 
deducido de a? Pruebe un ángulo 2*a y después otro 
5*a. Obtendrá respectivamente en cada pantalla: 


FIGURA DE “LISSAJOUS” SIN(2*a) 


El número de bucles en cada pantalla es igual al del 
factor que multiplica “a” 


FIGURA DE “LISSAJOUS” SIN(5*a) 


Curvas complejas 
Ahora puede hacer otro tipo de cambio 


PROGRAMA DEL RIÑÓN 


En este programa se han cambiado los colores y tama- 
ños (STEP) y los valores de las coordenadas. El pro- 
grama seguirá dibujando si Vd. aumenta el margen de 
los valores del ángulo. El siguiente programa duplica 
aproximadamente el margen, también acelera el pro- 
ceso dibujando líneas cortas en lugar de marcar pun- 
tos individuales: 


PROGRAMA DEL RELOJ] DE ARENA 


BORDER 3: 
LET r=60 


PAPER 2: INK 7: C 


10 BORDER 0: 
29 LET r=10 


DAY 


Pruebe con este programa y obtendrá una gran varie- 
dad de formas complicadas. El dibujo siguiente se pro- 
duce cambiando los colores y líneas 40 y 50 así: 


40 FOR a=0 TO 1000 STEP 0.1 
50 LET i=rxCOS(a)*SIEN(O98 xa) 


La forma empieza siendo muy abierta, pero el progra- 
ma termina por llenar el círculo (en la pantalla lo ve- 
mos tras media hora). 


PANTALLA DEL BALÓN 


Con este tipo de programa, la resolución gráfica no 
consigue demasiado detalle, ya que cada curva se ha 
dibujado como una serie de puntos 


Las demoras de tiempo están entre los mandatos más 
usados en programas de ordenador. Uno de los pro- 
blemas de trabajar con un micro es que a menudo eje- 
cutan los programas demasiado deprisa. Con las de- 
moras se deceleran útilmente los programas; por ejem- 
plo se mantiene un texto en pantalla el tiempo nece- 
sario para poderlo leer, antes de que desaparezca, o 
se reduce la velocidad de una secuencia de imágenes 
excesivamente rápida en un programa de animación. 

La manera más sencilla de programar una retención 
es la sentencia PAUSE, que tiene la forma de la siguien- 
te línea de programa: 


100 PAUSE 50 


donde el número después de PAUSE representa el 
tiempo de demora en quincuagésimos de segundo. Es 
sencillo procesar un programa con PAUSE y ver si la 
demora especificada es suficiente. Si no, se especifica 
y prueba un número mayor después de PAUSE. Es 
aproximado pero suficiente; sin embargo si Vd. quiere 
cronometrar un suceso en un programa puede usar el 
reloj incorporado en el propio Spectrum. 


Uso del reloj interno 

Algunos ordenadores llevan un reloj que marcha inde- 
pendiente de lo que estén haciendo los programas. El 
Spectrum no tiene un mandato o función que le permi- 
ta usar un sistema de tiempo con una simple sentencia 
de programa. 

Sin embargo, el Spectrum, como el resto de los or- 
denadores personales lleva un reloj interno que sin- 
croniza sus actividades, con un dispositivo contador. 
Tres “direcciones”, o franjas, de su memoria cuentan el 
número de imágenes de televisión (cuadros) produci- 
dos desde que se encendió el ordenador. La primera 


dirección (numerada 23672) cuenta hasta un máximo , 


de 255; después se restaura a O y los contenidos de la 
siguiente dirección (23673) se aumentan en 1. Cuando 
se alcanza 255, se vuelve a poner a O y los contenidos 
de la tercera (23674) se aumentan en 1. Como en Eu- 
ropa se producen 50 cuadros por segundo (60 en la te- 
levisión de Estados Unidos), la primera dirección cuen- 
ta en quincuagésimos de segundo; la segunda en in- 
tervalos de 5,12 seg. y la tercera en intervalos de 
1310,72 seg. 

Si la precisión del reloj interno es sólo de un quin- 
cuagésimo de seg. Vd. puede preguntarse qué ventaja 
tiene usarlo en lugar de la sentencia PAUSE, de apro- 
ximadamente la misma exactitud. La razón es que como 
PAUSE, sentencia BASIC, es parte de un programa, éste 
es incapaz de hacer nada durante la demora. Nunca 
puede dar más de una interrupción temporal al pro- 
grama. 


En cambio, el contador trabaja de modo distinto, 
guardando la cuenta de lo que hace el programa —con 
dos excepciones. Si hace que el ordenador suene 
(BEEP) o usa cualquier periférico conectado al ordena- 
dor —un magnetófono o una impresora, por ejemplo— 
el contador para, mientras Vd. lo use y después reanu- 
da su cuenta. Así, si quiere usar el contador como reloj, 
aquél perdería tiempo durante estas operaciones. 


Cronometrado con el contador 
Para ver trabajar al contador, teclee las dos líneas 
siguientes: 


10 PRINT PEEK 23672 
20 GOTO 10 


La pantalla debe presentar números crecientes (hasta 
255), hasta que aparezca la petición “scroll?” en la pan- 
talla, como se indica más abajo: 


PANTALLA DEL CONTADOR 


El mandato PEEK mira en la dirección especificada qué 
número está almacenado allí. Es la pareja de POKE, que 
pone un número en una dirección. PEEK 23672 signifi- 
ca "el contenido del” número de dirección 23672. Vea 
que los números visualizados no son consecutivos; hay 
una diferencia de tres o cuatro entre cada par. Es de- 
bido a que las propias sentencias PRINT y GOTO re- 
quieren tiempo para realizarse y el programa no es ca- 
paz de “cazar” cada simple "tick” de quincuagésimo de 
segundo del contador. Puede ser un problema cuando 
quiera usar el contador para contar en pequeños inter- 
valos de tiempo, como en el programa siguiente. Cuan- 
do lo procesa, debe sonar un "BEEP” cada segundo. La 
variable t se fija igual al contenido de 23672: 


"RELOJ" CONTADOR DE CUADROS 


10 LET_1t=PEEK 23672 
20 IF PEEK E t1=50 THEN S56€£E£ 
P E O GO TO 10 
GO TO 2 


Cuando la diferencia entre el PEEK 23672 y el t fijado 
alcanza 50, ha transcurrido un segundo y debe sonar 
el "BEEP”. 

Cuando procese este programa, descubrirá que pro- 
duce apenas un par de "“BEEP”. La razón es que PEEK 
23672-t es poco probable que sea igual a 50 en el mo- 
mento que se realiza la línea 20. También, la sentencia 
BEEP detiene el contador de cuadros durante un quin- 
cuagésimo de segundo cada vez que suena. Esta clase 
de programa puede usarse como un temporizador, 
pero el intervalo de tiempo (entre dos ticks) debe ser 
suficientemente grande comparado con el tiempo re- 
querido para realizar las sentencias del programa. 

El siguiente programa mide un intervalo de 5 segun- 
dos, aunque no es del todo exacto. La segunda direc- 
ción cuenta cada vez que se llena la primera —es de- 
cir, cada 256 quincuagésimos de segundo, o sea 5,12 
seg. Esto es adecuado para un temporizador que sólo 
redondea al minuto o medio minuto. La línea 10 restau- 
ra la dirección a O cada vez que se procesa el programa: 


TEMPORIZADOR DE 5 SEGUNDOS 


10 POKE Ns 
20 LET =PEEK ' 35 673 
O IF PEER 2367331 THEM PRINT 
ic 
409 GO TO 50 


Uso del tiempo en programas 
Como mirar el contador de cuadros requiere una serie 
de cálculos, se puede emplear una función FNt() para 
representar el número de segundos transcurridos des- 
de que se encendió el ordenador. Se establece una va- 
riable T igual a éste y, después en el programa, cuan- 
do FNt() excede T, los segundos se aumentan en 1. Des- 
pués T se restaura a FNt() para la cuenta siguiente. Un 
programa puede también incorporar pruebas para au- 
mentar los minutos y horas visualizadas. 

Este tiempo, relativamente exacto, es de más valor 
en los programas. Aquí hay una forma de usarla, en un 
programa que controla la velocidad de sus reacciones: 


TEMPORARIZADOR DE REACCIONES 


10 DEF FN_t() =65536%*PEEHK 23674 

+2556*PEEK 23073+PEEK 23672 
20 PRINT AT S5S,6;"Time your rea 
AT 10,10;”Press a key 


AT 12,4; "when you hea 
e" 
US 100+4:(INT_100zRND) 
LET T=FN 1t(): BEEP 0.1,2S 
PRINT AT 16,6; Your. time st 


now * 
YD IF INKEYS="" 
CcL5 


THEN GO TO 8509 
198 PRINT AT S.12;-vou t00k ¿AT 
198,13; (FN iio AT 12,12;* 

econds 

119 PAUSE 1508 

128 CLS : 60 TO 28 


Time your reactions 


Press a key 
when you hear the tone 


Your time starts now 


La función FNt() se define en la línea 10. Ve (PEEK) las 
tres franjas de contadores de cuadros. Se omite la divi- 
sión final por 50; así la función cuenta en quincuagésimos 
de segundo en vez de en segundos. La línea 50 produce 
una demora, de al menos 2 segundos, antes de iniciarse 
el período medido. La línea 80 espera a que se pulse una 
tecla antes de borrar la pantalla (línea 90) y después cal- 
cula y visualiza el tiempo de reacción. 


Una matriz es una forma de almacenar hechos y/o va- 
lores en la memoria del ordenador en forma de tabla, 
para que se pueda localizar un elemento sin tener que 
"recorrer” todos los anteriores. Cada elemento se es- 
pecifica por uno o más números. En la siguiente matriz 
cada elemento se identifica inequívocamente por un 
par de coordenadas: 


] 2 3 4 5 6 
PACO ALBA JUAN ROSA JOSE LOLA 
100 250 840 125 223 691 


A esta matriz se le llama de 6x2 (6 columnas y 2 filas). 
El elemento (2,2) es 250; el (1,3) es JUAN, etc. Esta ma- 
triz, por necesitar dos coordenadas de identificación, 
se llama bi-dimensional. Si sólo hubiera tenido una fila 
sería uni-dimensional. La palabra clave DIM del BASIC 
se usa para decir al ordenador cuál debe ser el tama- 
ño de la matriz. 

Puede usarse una matriz unidimensional para alma- 
cenar una lista de números muy usados: 


MATRIZ UNI-DIMENSIONAL 


12 
PRINT AT 4+n,12;m51nm) 
NEXT n 


Aquí la línea 20 le dice al ordenador que la matriz m 
tiene 12x9 entradas (9 es el máximo de letras de cual- 
quiera de los 12 meses en inglés). El programa visua- 
liza la lista de los meses del año dada en la línea 10. 
Aunque hay formas más sencillas de hacerlo, después 
en un programa, puede querer enlazar un mes con otra 
información o el resultado de un cálculo. Usando este 
listado, puede “extraer” cualquier mes usando m$(n), 
siendo n el número del mes. Cuando se procesa el pro- 


grama, la pantalla aparecerá así: una tabla de meses lis- 
ta para más información: 


PANTALLA DE MATRIZ UNI-DIMENSIONAL 


OZOWDCCIDINC 
MOAMAECCIDI 
Nin TILA 
MMO-CIEM RARE 


220 


Cómo añadir una dimensión 

Ahora elaboremos el programa de matriz de calenda- 
rio para hacer algo útil. Añada una segunda matriz, nu- 
mérica, de manera que pueda listar algunos valores 
frente a cada mes. El siguiente programa usa la matriz 
para representar la pluviometría mensual. 

Ahora la tabla tiene dos cabeceras. No necesita vi- 
sualizar todos los elementos de la matriz de cadenas 
—m$(n)— antes de moverla para seleccionar la matriz 
numérica —r(n). La línea 80 toma un elemento de cada 
matriz. Como estos se han de visualizar en filas conse- 
cutivas de la pantalla, pueden identificarse fácilmente 
relacionándolos al número de fila. Para cada valor de 
n, m$(n) y r(n) son visualizados para diferentes núme- 
ros de columna de la fila (5+n): 


MATRIZ BI-DIMENSIONAL 


.» +. 00: 


P-NQNe ZA 
- >» DAVE 


m- 


NM 

¿A 

60 PRINT AT 4,5; "MONTH"; AT 4,1 
8; “RAINFALL (cms)” 

70 TO 

30 PR 
,¿20;r tn 

90 NEXT n 


PANTALLA DE MATRIZ BI-DIMENSIONAL 


RAINFALL (cms) 
2.5 


VRPRROPOJNA 
0 0 MINA 


o ox, 


Cómo escribir tablas con matrices 


Vd. puede ahora escribir una tabla más ambiciosa: 


PROGRAMA DE TABLA DE IMPUESTOS 


DRAYW 245,0. 
,0: rAy a 
Pp 1 

,»0 


DRA 2435 


DRAY 0,160 


y YE 
8090 PRINT AT 1,1; "ITEM";¡AT 1,6; 
*COST*";AT 1, ¿“NO”"*;AT 1,214; "SUS 


secrot1t? 


1,26; (INT 
100))+0.00 
un 


DZN+ “DOI ON 
m + 
mw 
+ 
3 
+ 
Pp 


x rate”: INPUT t 
250 PRINT AT 21,-7;” 
260 60 TO 130 


En este programa de planificación financiera, las colum- 
nas están interrelacionadas, y Vd. puede cambiar algo 
de la información visualizada, si es necesario. 

La línea 10 contiene los datos (DATA) para la prime- 
ra parte de la matriz (serie de precios), y la línea 20, 
los de la segunda parte (serie de cantidades). La línea 
20 también contiene algunas coordenadas que se usa- 
rán después en el programa. Las líneas 40 a 90 dimen- 
sionan la matriz 9x2 y “leen” sus datos. Las líneas 100 a 
170, dibujan la red que encuadra los datos. Las coorde- 
nadas del extremo inferior de las líneas verticales de 
la red se almacenan en la línea 20. La línea 180 visua- 
liza las cabeceras de columnas. 

Los datos se visualizan en la red por las líneas 190 a 
220. Se han de visualizar cada dos líneas desde las fi- 
las 3 a 19. El número de elemento, n (del 1 al 9) se re- 
laciona a la fila así: 


row=2xn+1 


Esto aparece en las líneas 200 y 210 en las*sentencias 
PRINT AT. Las dos últimas partidas de la línea 210 pa- 
recen especialmente complejas. Si el subtotal fue 8,25 
el impuesto se calcularía así: 0.15*8.25=1.2375 —dema- 
siados decimales; se multiplica, pues, el impuesto por 
100, se toma el valor entero (eliminando todos los de- 
cimales) y después se divide por 100. Se añade 0.005 
para redondear el valor final a la siguiente unidad. 

Las líneas 240 a 260 le invitan a introducir un nuevo ín- 
dice de impuesto. Si lo hace y pulsa ENTER, se recalcu- 
lan todos los valores de la tabla que usan el índice de 
impuesto. Esta posibilidad de recálculo instantáneo es el 
principio de un tipo de programa de planificación finan- 
ciera llamado “hoja de cálculo”. Pueden introducirse co- 
lumnas interrelacionadas de valores que representen los 
ingresos, costes de materiales/producción, gastos gene- 
rales, etc. Entonces puede observar los efectos de cam- 
biar uno o más de estos parámetros, ya que todos los pa- 
rámetros se recalculan en toda la pantalla: 


PANTALLA DE TABLA DE IMPUESTOS 


Try a new tax rate 


Casi todos los programas considerados hasta aquí han 
tomado datos numéricos y ejecutado cálculos para lle- 
gar a un resultado. Pero las cadenas de caracteres se 
han dejado casi invariablemente en su orden original. 
Sin embargo ya vio Vd. en el programa de reacciones 
(pág. 13) que el ordenador también almacena letras en 
código ASCII (ver pág. 60). Como estos códigos tienen 
valores numéricos, el ordenador puede examinar ca- 
denas y después reordenarlas de forma similar a los 
números. 


Cómo reordenar números 

Para ver cómo se clasifican o reordenan palabras —o 
cualquier cadena— es útil que sepa cómo se hace con 
números. Aquí hay un programa que le pide seis nú- 
meros y después los reordena en orden numérico. Pue- 
de ampliarlo fácilmente para tratar más de seis: 


PROGRAMA DE ORDENACIÓN NUMERICA 


10 DIM a(6> 

20 PRINT AT_S,10; "NUMBER SORT” 

30 FOR n=1 TO 5 

40 PRINT PAPER 0; INK 7;AT 10, 
2+4:n:n 

SO PRINT AT 20,1; “Type in a 1 
or 2 dig2at number” 

60 INPUT an). PRINT AT 12,2+4 


SN y] 
FOR 1=1 TO. .S: FORN-nN=1. TO S 
1F atn+1)<atn) THEN 69 SU5 


NEXT n. ea t 
16.2+4:n;a1n) 
AUTO 
£ LET 2 1n?=2 (n+1) 
JLEETAA ia +1) -b 
160 RETURN 


Y OK, 0:2 


La línea 50 le pide que teclee un número de uno o dos 
dígitos. Cada vez que lo hace y pulsa ENTER, se visua- 
liza la siguiente petición (de 1 a 6) sobre la siguiente 
posición INPUT. Aquí es donde su número elegido se 
visualiza por la línea 60. Todos los números introduci- 
dos se cargan en una matriz, de forma que puedan eti- 
quetarse para identificarlos. 

Después de introducidos seis números, comienza au- 
tomáticamente la ordenación en la línea 80. Primero 
examine el bucle n (desde la segunda sentencia de la 
línea 80 a la 100). Para cada valor de n, se compara 
a(n+1) con a(n); si a(n+1) es el menor, la línea 150 los 
invierte. Así, si en la primera pasada del bucle (n=1) 
sus dos primeros números fueron 34 y 16, se llamaría 
a la subrutina de inversión, ya que el segundo número 
es menor que el primero. Se establecería b=a(19) (34 
en este caso); a(1%)=a(22%) (16 aquí); y, finalmente, 


a(22)=b, que en este bucle es 34. Este “truco” invierte 
los dos números. El número máximo de ordenaciones 
necesarias para poner la lista de números en orden co- 
rrecto es cinco, y así el bucle t repite la rutina de or- 
denación 5 veces. Las siguientes pantallas muestran los 
números antes y después de ordenados: 


PANTALLAS DE ORDENACIÓN NUMERICA 


Number sort 


s 
SS 


a 1 0r 2 digit number 


NUMBER SORT 


COMPLETE 


3 STOP statement, 140.2 


Este proceso de inversión puede usarse también para 
manejar cadenas. Es fácil ver cómo el ordenador com- 
para dos números y "ve" si el segundo es menor que 
el primero. Lo hacemos siempre nosotros cuando com- 
paramos precios. Pero el ordenador también puede de- 
cidir si “Londres” es menor que "Nueva York”, es decir 
si es anterior en el alfabeto. La línea: 


50 IF “New York"<"London” THEN GOSUB 300 


a primera vista parece sin sentido. Pero como el orde- 
nador almacena una cadena como Nueva York o Lon- 


dres, como una serie de números, éstos pueden com- 
pararse y reordenarse. En BASIC, pues, tienen sentido 
comparaciones a<b o Estocolmo>París. 


Redisposición en orden alfabético 

Una de las aplicaciones más útiles de clasificación de 
cadenas es ordenarlas alfabéticamente. El siguiente 
programa muestra un método —trabaja con cadenas 
ya incorporadas en el programa, pero se puede adap- 
tar el programa para aceptar ristras diferentes usando 
INPUT: 


PROGRAMA DE CLASIFICACIÓN ALFABÉTICA 


o 


READ as 1n): N 
“Atltpha sort 1” 


po] 


$im) THEN GO SU 


Z HATNOD 70 0 


NPONFOVR-OJONLE ANO 
dd dido 00 :<0 


Pp sp 


La línea 20 dimensiona una matriz de cadenas usando 
el método de la página 22. La línea 30 lee el contenido 
de la línea 10 —una serie de capitales. La subrutina de 
las líneas 120 a 140 visualiza las ciudades en su orden 
original. Después, la rutina de ordenación mueve las ca- 
denas hasta que quedan en orden alfabético. Podría 
añadir una pausa (PAUSE) paa que pueda ir viendo lo 
que sucede: 


PANTALLAS DE ORDENACIÓN ALFABETICA 


Alpha sort 


Paris 
Sriockhotim 
New York 
iondeon 
Rome 
Amsterdam 


Alpha sort 


Amsterdam 
London 
New York 
Paris 
Rome 
Stockholm 


9 STOP statement, 110.2 


La rutina de ordenación en las líneas 150 a 180 es bá- 
sicamente la misma que la de ordenar números. Las va- 
riables usadas aquí son cadenas alfabéticas pero el or- 
denador trabaja de la misma manera que con núme- 
ros. La línea 110 detiene el programa. 

Vd. se dará cuenta de que el almacenamiento tem- 
poral usado en ambos programas (b y b$) no necesita 
ser un elemento de una matriz. La variable se usa sólo 
una vez en cada ordenación y después ya no se 
necesita. 


Cómo cambiar cadenas a números 

El Spectrum usa una serie de palabras clave que le per- 
miten utilizar información numérica a partir de cade- 
nas. Además de tomarlas y comparar sus valores AS- 
CI, el ordenador puede decidir cuál es la longitud. Para 
programarlo se usa la tecla LEN. La línea siguiente, por 
ejemplo, produce un número: 


100 n=LEN"Spectrum” 


Aquí n es 8, longitud de la cadena. Puede usarlo en los 
programas para rechazar una entrada de nombre o pa- 
labra que sea demasiado largo, o hacer que el ordena- 
dor tome una acción diferente según la longitud de al- 
guna cadena. Puede sumar LEN juntos para hallar la 
longitud de un número de nombres o de cualquier par- 
te de texto. 

El Spectrum además tiene una palabra clave que tra- 
baja con cadenas que son números. VAL convierte un 
número-cadena que contiene un cálculo, en un núme- 
ro. El número producido es el resultado del cálculo. Por 
ejemplo: 


150 LET a$="2x34.5x0.3" 
160 PRINT a$;“="¡¿VAL a$ 


visualiza tanto el cálculo como su resultado, lo que es 
útil en programación. Puede usar este mandato para va- 
lorar una cadena y después pasar este valor a otra par- 
te del programa. 


Hasta ahora, ha tratado las cadenas —o palabras que 
se reúnen en cadenas— como unidades indivisibles. 
Algún programa ha sumado cadenas, pero ninguno ha 
“mirado dentro” de las comillas que encierran cada ca- 
dena para trabajar con los caracteres interiores. Con el 
Spectrum puede reagrupar los caracteres de una ca- 
dena de formas diferentes, es decir que puede progra- 
mar al ordenador para extraer parte de una palabra o 
grupo de palabras y examinarlas —proceso que pue- 
de ser muy útil. 

La mayoría de los ordenadores que trabajan con BA- 
SIC usan los mandatos LEFT$, RIGHT$, MIDS, etc. para 
manejar cadenas, sirven para escoger el carácter pri- 
mero, último o intermedio de una cadena, respectiva- 
mente. Aunque estos mandatos no están en el teclado 
del Spectrum el ordenador puede hacer todo lo que ha- 
cen estos comandos, si Vd. sabe programarlo. 


Cómo cortar palabras 

Vd. puede hacer que el Spectrum rompa una palabra 
cortando la cadena. Es muy sencillo. Para ver cómo se 
puede hacer teclee el listado de la pantalla siguiente: 


PROGRAMA CORTADOR DE CADENAS 


10 LET a$="Sl1cC1M9 words witr 
the Spectrum” 

20 CLS 

309 FOR n=1 TO_231 


40 PRINT ast TO m> 
50 NEXT n 


Aquí la técnica está en la línea 40, donde aparece un 
mandato TO como parte de una variable en cadena. 
Para cada valor de n, la línea 40 visualiza una cadena 
de longitud n. Así la primera línea contiene la cadena 
“"S”, la segunda “S1” y así sucesivamente, hasta que n 
iguala la longitud establecida. Con este programa pue- 
de usar cualquier tipo de cadena. Es mejor que el va- 
lor de n no supere los 32 caracteres de una línea de 
pantalla. Usando una cadena diferente, asegúrese de 
que el valor máximo de n en la línea 30 no sea mayor 
que la longitud de su cadena: 


PANTALLA CORTADORA DE CADENAS 


PERPPREFEPEREREERE] 
Y a a a a ll 1 
ETCETCTLCTECELEETEE 


D00000 OOO Aaa 
ALAN A 


Q0401nnaaAaaaa 
Ma hos han da dan ds UY A O 
ELCLTEEE 

Mo ja pa pa pa pa 


Y POAIIIIOIIIIAIININIINANNNN 
nn 
IITITT 


DN erre 
A mt po pe A pe po pa po pa O A q q po o pr po 
0 AAAACANANANANARAANAN 

cn nm. mmm. topo. bo. pao pa pa da o pp pe po 


n 


Puede usar esta técnica para elegir cadenas que em- 
piecen por la misma letra o palabra, y después quizás 
visualizarlas en una serie de listas. 

El efecto inverso es igual de fácil. Añada las líneas 
siguientes al programa, procéselo y vea lo que pasa: 


60 FOR n=1 TO 31 


70 PRINT aS(TO 32-n) 
80 NEXT n 


Ahora, como n aumenta de 1l a 31 en cada bucle, la lon- 
gitud de la cadena visualizada decrece desde 31 ca- 
racteres a 1l. 


Cómo extraer partes de una frase 
Ahora puede explorar esta técnica. Teclee y procese 
el listado de la pantalla siguiente: 


PROGRAMA CORTADOR SELECTIVO DE CADENAS 


Screen Shot Sera 


¿3 "String Choppe 


No está limitado a tratar los n primeros caracteres de 
una Cadena, puede tomar cualquier grupo de caracte- 
res consecutivos desde una palabra a una frase. En este 
programa la línea 50 trabaja de la misma manera que 
la 40 del programa cortador. La línea 60 forma una ca- 
dena desde los caracteres 4 a 14 del interior de af. Fi- 
nalmente, la línea 70 forma una tercera cadena desde 
el carácter decimoquinto al final de a$. Aunque estas 
"subcadenas” se forman como parte de a$, la misma a$ 
está aún intacta. Esta técnica permite tomar un grupo 
de palabras y elegir cualquiera de ellas para usarla sola 
en un programa. 


Juegos de palabras con mandatos de cadenas 

El siguiente programa muestra cómo usar estos méto- 
dos de manejo de palabras en un juego. Es un acertijo 
de palabras con ordenador, en el que un jugador intro- 
duce una palabra y otro tiene que acertarla; el ordena- 
dor visualiza las letras que el usuario ha acertado en 
sus posiciones correctas en la palabra: 


PROGRAMA DE LA HORCA 


19 BORDER 0: CLS 
*HANGMAN 
ed A ar q 


30* PRINT, AT 12. ¿"or phrase fo 


r lo. 
Sin? Ar 15. "DONT LOOK A 
T he” SCREEN” 
50 PRINT AT 20,0; "Press ENTER 
you're finished” 


PRINT AT 2, 
"Ask a friend 


LET s=0 
En) e E ado ar 
19, “o. NEXT 
RINT Ar PE 2) en; ” 


2,12: “HANGMAN" 


15. 
19 có. 
thai 


TU 


THEN S3TOP 
THEN O TG 210 
PRINT AT 216,12;” 


D-- 


ad 
E a E al 


n 


D+ P+H3D0Z 1 Hi THAI 


Hen PRINT AT 1 


P 


130 
140 
150 
160 
rie 
170 
150 
, (32 
190 
200 
210 
th 
20 
22 
o 


Mm Xx 


a E A 


CLS . PRINT A 
¿AT 13,12;"scor 


n4 ” 

0) 

mn. 
OPI m4 DOM-TO :MNANZ 


7) 
A) 


Las líneas 10 a 50 visualizan la estructura del título. 
Cuando un amigo ha tecleado la cadena que se ha de 


adivinar, la línea 70 calcula la longitud con el mandato 
LEN, y pone la cuenta, s, a cero. 

Ahora el programa ha de visualizar símbolos sobre 
la pantalla para representar las letras de la cadena. 
Cuando se aciertan letras éstas reemplazan a los sím- 
bolos. También, para permitir jugar con frases y no sólo 
con palabras, se muestra dónde están los espacios que 
separan palabras. La línea 100 visualiza guiones que re- 
presentan letras. La línea 90 visualiza cuadrados para 
representar los espacios de las cadenas. En las líneas 
90 y 100, (32-1)/2+n establece dónde deben visualizar- 
se los caracteres de la cadena para que aparezcan en 
el centro de la pantalla, no descentrados (un efecto si- 
milar se incorpora en los programas de proceso de 
textos) 

Si Vd. quiere adivinar la palabra o frase entera, en 
vez de teclear letras individuales (esto puede hacerse 
en cualquier punto del juego), pulse 1. El programa sal- 
ta a la línea 210. La palabra o frase que se tecleó en 
(t$) se compara con la cadena almacenada (a$). Des- 
pués se visualiza un “correcto” o si la respuesta es erró- 
nea, el programa vuelve a la entrada de letra única. 
Cuando se prueba con letras, las líneas 170 a 190 las 
comparan una a una con cada carácter de la cadena al- 
macenada. Si concuerda, se visualiza en la posición 
adecuada. Este es un ejemplo de la pantalla que se 
debe ver durante el juego: 


PANTALLA DE LA HORCA 


HANGMAN 


-:tetiter M.spa<ce 


Puede limitar el número de respuestas añadiendo los 
mandatos: 


IF s>n THEN STOP 


después de las sentencias donde se calcula la cuenta, 
s. Si Vd. tuviera un error en el programa, puede ser di- 
fícil parar usando la tecla BREAK en CAPS SHIFT, así 
para facilitarlo añada otra línea: 


145 IF t$="3" THEN STOP 


Para parar el programa en cualquier punto, pulse 3. 


COMO ENCONTRAR DATOS 


Vd. puede usar su Spectrum para almacenar informa- 
ción como archivo electrónico. Sin embargo, exigiría 
tiempo ver todo el contenido de un archivo grande 
cada vez que quiera consultar una partida. Incluso ten- 
dría que explorar la pantalla para encontrar la informa- 
ción que busca como en los archivos de papeles. Un 
buen programa le permite escoger información, de for- 
ma que la búsqueda la haga el ordenador y no Va. 


Cómo programar una búsqueda en serie 

El siguiente programa usa un método simple pero efi- 
caz de localizar una partida en una larga lista de datos. 
Se llama “en serie” porque busca el dato en una serie 
de etapas. Toma la cadena (T$) que Vd. teclea y la com- 
para una a una con cada cadena en las sentencias 
DATA del programa, hasta que la cadena es igual a una 
de las almacenadas: 


PROGRAMA DE BUSQUEDA EN SERIE 


ans 4465 239. 
“Doctor” “59 
cu21- 111433 


20" 
1-437 2466" ,” 
"mac", “91 


INK 0: C 
Seriat search 


%3 > 8377" 
o SoRdEñ 0: PAPER 7: 
SO PRINT AT 5,9;” 
69 PRINT AT 10,6;"“Enter name:- 
70 PRINT AT 20,2;"Press ENTER 


to start search” 
30 INPUT TS: PRINT AT 10,17;TS% 


90 LET t=1 
serot1t”? 


OR _ n=1 el 17 
READ Ns5,PS 
IF N$=T6$ THEN GO 5US5 190: S 


LET t=t+1 
NEXT_n 
seu O AT 20,2;* 
comple 
160 SECR o. 
1709 PRINT AT” 10,6; "---Name not 
O: 


STOP 
158 PRINT AT 20,2;” 


Search 


Search 


25 
210 PRINT AT 12,13;P5 


220 RETURN 


Las líneas 10 a 30 guardan una lista de nombres y nú- 
meros telefónicos. Las líneas 100 a 140 “leen” varias ve- 
ces un nombre (N$) y número (P$), de las sentencias 
DATA (los números se tratan como cadenas). Así, has- 
ta que el nombre almacenado sea igual que la cadena. 
La línea 210 visualiza después el número de teléfono. 

Si el ordenador no puede igualar la cadena con nin- 
guna de las almacenadas, la línea 170 anuncia que no 
la ha encontrado. Si ahora añade la línea siguiente Vd. 
podrá contar el número de búsquedas hechas hasta 
conseguirlo: 


215 PRINT AT 16,12; “attempts” 


Ahora intente procesar el programa para hallar el últi- 
mo número de teléfono en la lista: 


PANTALLA DE BUSQUEDA EN SERIE 


Seriat searcr 


Verá que el programa emplea 17 búsquedas y una frac- 
ción de segundo para hallar el último nombre de la lis- 
ta. Es aceptable en un programa corto como este, con 
pocos datos almacenados. Pero para un programa de 
búsqueda en serie de unos 200 nombres, u otros ele- 
mentos, la demora causada al mirar cada elemento en 
la búsqueda sería notable. El programa es sencillo, pero 
lento. 


Cómo acelerar la búsqueda de datos 

Otro método de búsqueda puede acelerar el proceso. 
Se basa en almacenar los datos en orden numérico o 
alfabético. Los datos almacenados en el programa se 
dividen en dos repetidamente y la primera mitad se 
“lee” y compara con la cadena en prueba. Esto da tres 
posibilidades. Primera, las dos cadenas pueden ser 
idénticas —éxito al primer intento. Segunda, la cadena 
puede resultar posterior en orden alfabético o numéri- 
co que la encontrada. Tercera, puede resultar anterior. 
Si la igualación no tiene éxito, la mitad del dato en que 


cae la cadena de prueba se vuelve a subdividir en dos 
y se busca de igual forma hasta que se igualen. 


Central Última 


Primera Central Última 
¡vrenro 2 INMINENTE an 
En esta búsqueda el ordenador está  Primgra Central Última 
buscando el elemento 15 INTENTO 3 


Este es un programa que efectúa la "búsqueda bisec- 
cionada” de un banco de datos: 


Primera 


INTENTO 1 


> 


A] 
:ND 


0: 


TO 
iD3- 
1:00] 


se 0 UC”: 


A] 
Oy 


pa | 
> ++ MUDE : 

) sd. $ 
NEQR- VOLDZIO D 


:::AMO + : 
Pppio: 
00A 
ONDORNV 7 :: 
23710 D*0DO 00 :vZMO 
10 
::00 M-+.0 
:000 :4 


INK 0: € 


. DIM P$117,11) 
: READ NS tñ)3: 


RERD Psian). 


OH OPRPOQOWVND 4D 
DI DN:: 


po 
0 


2d TO. IF" 


==: € 1t=15 
S,5:"“Bisection sea 


390 PRINT AT 10,5;"Enter nmame:- 
100 PRINT AT 20,2; “Press EMTER 


to start search” 

10 pu 1d PRINT AT 10,17:T75 

(1f+1)/2) 

THEN SO TO 190 
THEN LET f=x 
THEN LET L=x 
+1)/2) THEN 50 


Hi 1 
ZXXXH 


HA 
12,13;PS4 1(x) 


U 
cDUIDE DTO HHHHTTHA 
IADOE DM ANAAMMZ 


El dato se ha reorganizado en dos listados separados 
—uno de nombres y un segundo de números de telé- 
fono. Para localizar el elemento en estas sentencias 
DATA sin tener que "leer” todos, debe numerarse o eti- 
quetarse de alguna forma. Lo hace la línea 40 creando 


dos listas numeradas de datos o matrices. Las líneas 50 
y 60 "leen” los elementos en las dos matrices. La línea 
130 fija las condiciones para la primera búsqueda. El 
primer elemento a dividir, f, es uno y el último, l, es 18. 
Si no se hace igualación en la línea 140, las líneas 150 
y 160 fijan los nuevos valores de f y 1 para la búsqueda 
siguiente. 

Si procesa el programa de la forma que se indica 
aquí, contestará "Name not found” a cada cadena de 
prueba, debido a que la línea 40 dice que cada cadena 
(N$) tiene 9 caracteres de longitud y cada cadena (P$) 
11. Un nombre como “Wendy” se almacena, pues, como 
“Wendy ” que, en cuanto al ordenador, no es igual 
a la cadena de prueba. Para resolver esto añada: 


111 LET T=LEN T$ 
112 IF T<>9 THEN LET T$=T$+"”. GOTO 111 
205 PRINT AT 16,12;t,“attempts” 


Así se suman espacios a la cadena de prueba hasta 
que tiene 9 caracteres de longitud. Ahora el programa 
se procesa y visualiza el número de intentos para en- 
contrar la igualación. 


PANTALLA DE BUSQUEDA BISECCIONADA 


La última partida en la línea 10 no es errata de impren- 
ta. Debido a que el programa divide los datos en mita- 
des, el último nombre (WENDY en este caso) nunca se 
localizaría. El valor máximo de x es uno menos que el 
número de datos: Para soslayar esto, se añade la falsa 
partida ABCDE, de forma que se pueda buscar el dato 
con éxito. 

Usando este método, el último nombre puede encon- 
trarse tras sólo 5 intentos. Para ahorrar tiempo, el nú- 
mero P$ sólo se “lee” cuando se igualó el nombre. Este 
ahorro hace esta técnica mucho más adecuada si se 
quiere buscar en largas listas de datos. Podría también 
usar programas como los de las págs. 24-25 para orde- 
nar los datos antes de usarlos en el programa de bús- 
queda. Combinando los programas tendría un accesi- 
ble banco de datos. 


Los gráficos de ordenador son valiosísimos para visua- 
lizar información de una forma que pueda comprender- 
se de un vistazo. El de sectores es uno de los más sen- 
cillos de comprender y uno de los más útiles para mos- 
trar la relación entre una cantidad parcial y la total que 
la comprende. 


Dibujo de un gráfico fijo de sectores 
Para obtener un gráfico de sectores, lo primero es di- 
bujar un círculo, después se marcan los bordes, (radios 
de los sectores). Una vez dibujado el primer radio, los 
demás pueden dibujarse referidos al primero. Es como 
cortar una tarta; no importa dónde se empieza, pero una 
vez iniciado, el tamaño de cada trozo está determina- 
do por el ángulo que el sector hace con el anterior 

En el siguiente programa, se dibuja un sector de un 
ángulo recto en un círculo: 


GRÁFICO DE SECTOR ÚNICO 


BORDER 1: PAPER a: 


CIRCLE 1283,55,30 
350 PLOT 123,55. DRAWY 509,09 
PLOT 123,88: DRA 0,509 


INF Y: 


c 


GRAFICOS DE SECTORES 


El programa construye el círculo en el centro de la pan- 
talla (128,88). La línea 30 dibuja el primer radio (hori- 
zontal, del centro a la derecha). La línea 40 dibuja des- 
pués el radio vertical que determina el sector. 


Adición de sectores 
Podría continuar y dibujar un segundo sector igual aña- 
diendo la línea: 


50 PLOT 128,88:DRAW-80,0 


y desde ahí añadir líneas para dibujar más radios y 
construir un gráfico de varios sectores. Pero esta clase 
de programa no es muy usual ya que hay que calcular 
las posiciones de todos los radios 

Sin embargo, el principio básico del primer progra- 
ma puede usarse para escribir otro que calcule la po- 
sición de todos los radios 


GRÁFICO VARIABLE 


6,12; “CLELLLLELELEZLLE" 
PRINT AT 35,7;'"Totat pae saz 


INPUT t: PRINT AT 8,26;t 
FOR n=1 TO 3 
PRINT AT 33:N+9,7;“lUhat S1ZE 
SLLEA “NS 
50 INPUT sin): PRINT AT S3S:xn+9, 
as 


NEXxXT_n 
BORDER 1: PAPER 1. 


CIRCLE _ 123,55,80 
PLOT E DRA 50,09 


ENK. 7:-CE 


160 DRA (5 +2%PI/1) ,590:5 
IN_ (S:2%*PI,s1) 
170 NEXT n 


90 OK, 0:1 


Las líneas 20 a 90 establecen el título y el cuadro de 
entrada. La línea 10 dice al ordenador que el programa 
usará una matriz uni-dimensional llamada s que tendrá 
tres elementos. Cada uno de estos elementos serán del 
tamaño de uno de los tres sectores que el bucle de las 
líneas 60 a 90 le pide a Vd. que teclee. 

Primero, sin embargo, debe teclear el tamaño total 
de sector en respuesta a las líneas 40 y 50. Las líneas 
100 a 170 dibujan el círculo y los radios en las posicio- 
nes calculadas usando los tamaños de sectores que te- 
cleó. La «variable s, que se puso a cero en la línea 10, 
fija la posición de cada sector en relación al primer ra- 
dio. Cuando n=1, por ejemplo, s=s+s(1). Cuando n=2, 
s=s+s(2). Finalmente, cuando n=3, a=s+s(3). Para cada 
valor de s se dibuja una línea desde el centro al punto 
calculado usando COS y SIN en la línea 160. 

Puede preguntarse por qué esto puede dibujar líneas 
que terminan a la izquierda o debajo del centro. El COS 
de ángulos entre PI/2 y 3xPI/2 radianes (90 y 270 gra- 
dos) es negativo. Así si COS(sx*2P1/t)=-1, el radio se di- 
buja a un punto de abscisa x=128+(-80)=48. 


Etiquetado de los sectores 

El programa anterior funciona bien, pero nada identifi- 
ca cuál es cada sector; se necesita buena memoria para 
saber qué sector representa cada una de las cantida- 
des que tecleó. Para esto se puede añadir una rutina 
para etiquetar los sectores: 


RUTINA DE ETIQUETADO 


talt=";t 


)=0 
(5 :2*+PIrt 
Y in+1)=30%SIN (5:2%PIt 


PRINT PAPER n: 
In Mos (ri) 
250 NEXT rn 


La línea 121 establece dos matrices, x e y, que se usan 
para almacenar las coordenadas de los extremos de ra- 
dios dibujados sobre el círculo. Hay cuatro pares, no 
tres, el del primer radio y los de los otros tres. Las coor- 
denadas del primer radio son conocidas (50,0) y se es- 
tablecen en la línea 122. 

Para cada valor de n, las coordenadas del extremo 
de estos radios se extraen de las matrices para x(n+1), 


y(n+1). 


El programa usa estas coordenadas para visualizar 
una etiqueta sobre la pantalla. La posición de la etique- 
ta se da en dos coordenadas x e y. Estas coordenadas 
son la mitad de la distancia entre x(n) y x(n+1) respec- 
tivamente. Las dos coordenadas gráficas se traducen 
en números de fila y columna por las líneas 200 y 220. 

Las coordenadas x e y se dividen por 8 ya que hay 
8 "pixels” gráficos para cada posición de carácter. Pero 
hay una desventaja en calcular así la posición de la eti- 
queta. Como ésta se ha de imprimir entre los extremos 
de los dos radios, no funcionará bien si el sector es ma- 
yor que un semicírculo. Sin embargo, para valores me- 
nores, el programa trabaja correctamente y etiqueta los 
sectores: 


GRÁFICO ETIQUETADO 


Para cada etiqueta, la línea 240 visualiza el mismo nú- 
mero sobre un fondo coloreado y visualiza el tamaño 
del sector además de dar los valores tecleados. 

Teclee las siguientes respuestas al cuadro de pre- 
guntas: 


500 - ingresos totales 
160 - facturas 

100 - seguros 

180 - viajes 


Si prueba estos valores, terminará con un gráfico que 
tiene un sector negro sin etiqueta. Representa la canti- 
dad de ingresos restantes después de los pagos que 
ha tecleado. 

Puede Vd. adaptar este programa para tener más de 
tres sectores cambiando el número de entradas (IN- 
PUT) y las dimensiones de las matrices. Es posible di- 
bujar con el Spectrum secciones de círculo coloreadas. 
Sin embargo, si usa rutinas que dibujan con tinta (INK) 
para colorear sectores en un gráfico, encontrará dificul- 
tades en obtener bordes lisos en los sectores. Este pro- 
blema es debido a que la clave INK, en el Spectrum, 
funciona mejor para la resolución de textos que para 
la de gráficos. 


Como los gráficos son tan buenos para juegos, a me- 
nudo sólo se explotan parcialmente para usos más se- 
rios. Vd. puede usar su Spectrum para obtener gráficos 
de alta resolución que muestren cualquier información 
que se pueda dar en forma numérica. Aunque los grá- 
ficos de sectores son útiles para mostrar la división de 
algo en partes, también muestran la relación de dos se- 
ries de elementos. Vea la siguiente pantalla: 


Aun sin ser un matemático puede deducir información 
útil de este gráfico: el valor de la ordenada, y, aumenta 
uniformemente con el de la abscisa, Xx. 


Cómo construir un gráfico 

El programa que crea el gráfico anterior ha de dibujar 
los ejes de coordenadas, etiquetarlos, marcar los pun- 
tos y finalmente dibujar una línea: 


PROGRAMA DE GRÁFICO MARCADO 


10 BORDER 1: 
, 20 DATA “A","B es GS 


309 DATA _16,7,14,9,13,12,12,13, 
10,15,9,16,8,17,7,18,6,20,4,21,3 
0 PLOT 224,24: DRAW -192,90: D 
C=4 TO 24 STEP 4 
D_m$ 
NT INK 2;AT 20,c;m%$ 


PAPER S: CLS 
Be, "C0",“D” 


O0JONPONRO0NJOO 
900009000090900009 


pp e ps ps 


n 
PLOT 32,24: DRAW 168,123 
9 OK, 0:1 


GRAFICOS DE PUNTOS Y LINEAS 


La colección de información está contenida en DATA 
en la línea 30. La línea 40 dibuja los dos ejes del gráfi- 
co. Los dos bucles que siguen (entre las líneas 50 y 80, 
y entre las 100 y 130) visualizan las etiquetas a lo largo 
de cada eje. El primer bucle toma una a una las letras 
del DATA de la línea 20 y las pone en el eje horizontal 
en posiciones determinadas por c en la línea 70. Esta 
aumenta en pasos de 4 (línea 50) para dejar separación 
entre cada dos letras. La línea 110 pone números (que 
por estar en secuencia no necesitan almacenarse en 
una línea DATA) en el eje vertical, dados por la línea 
100. 


Cómo programar gráficos “a la medida” 

La principal desventaja del programa anterior es que 
dará siempre el mismo gráfico. Aunque puede variar 
la información de las líneas DATA, es laborioso modi- 
ficar la pantalla. Vd. deseará un programa que le per- 
mita teclear cualquier coordenada mientras se proce- 
sa el programa. Además Vd. deseará no tener que tras- 
ladar las coordenadas del gráfico en coordenadas de 
la pantalla del Spectrum antes de usarlas; el programa 
debería poder hacer esta conversión. 

Esto lo consigue el siguiente programa. Aunque pro- 
duce ejes que tienen etiquetas fijadas, Vd. puede te- 
clear las coordenadas que desee, siempre que caigan 
dentro de los límites del gráfico. 

La línea 20 dibuja los ejes, como antes; las líneas 30 a 
50 ponen las etiquetas al eje x. El programa usa bucles 


PROGRAMA DE GRÁFICO VARIABLE 


a BORDER 2: PAPER 6: INK 1: C 
L 
20 PLOT 224,24: DRAWY -192,0: D 
RAY _ 0,123 
FOR c=4 TO 28 STEP 4 
PRINT AT 19,Cc;c-4 
NEXT c 
n=0 
r=18 TO 2 STEP -2 
AT r,2;n 


3 
4 
s 
s 
7 
a 
9 
o 
1 
2 
3 
4 
Ss 
6 


1 
1 
1 
1 
1 
1 
1 


FOR..NEXT para determinar cuáles son las etiquetas y 
dónde han de ir. Aquellas podrían representar horas. 
El programa utiliza bucles FOR..NEXT para determinar 
las etiquetas y su posición. Como las posiciones de las 
etiquetas horizontales van del 4 al 28 y los valores del 


O al 24, la línea 40 del programa utiliza el número de la 
columna para poner la etiqueta en posición. 

Las líneas 60 a 100 etiquetan el eje vertical. Aquí es- 
tán elegidas para que representen una gama de tem- 
peraturas en centígrados. 

La línea 130 le pide introducir un par de coordenadas. 
Teclee una hora, pulse ENTER y teclee una temperatura, 
seguida de ENTER. El ordenador suena y la línea 150 mar- 
ca un asterisco en la posición de la pantalla: 


RÁFICO VARIABLE 


Cómo cambiar la pantalla 

El gráfico visualizado es muy basto, ya que sólo pue- 
den marcarse asteriscos en las 384 posiciones (24 
col.x16 fil.) dentro del área gráfica. Para un mayor de- 
talle, puede sustituir la línea 150 por la: 


150 PLOT 32+192xh/24,24+128xt/32 


Esta produce una pantalla con puntos, en una red grá- 
fica, en vez de asteriscos, permitiendo mayor reso- 
lución: 


PUNTOS EN GRÁFICOS 


Cambiar el programa para que produzca líneas unidas, 
y no puntos aislados, es un poco más difícil. Lo que Vd. 
necesita es decirle al ordenador que marque un punto, 
dibuje desde él al anterior y después marque de nue- 
vo el segundo punto para que, a su vez, pueda volver 
dibujando. Este tipo de programas es ideal usando fun- 
ciones. Sin ellas, las líneas del programa tendrían que 
repetir un par de cálculos pesados para establecer las 
coordenadas. Estos son los cambios de líneas y adicio- 
nes necesarios para producir el gráfico de líneas, junto 
con una pantalla: 


MODIFICACIONES DE GRÁFICOS DE LÍNEAS 


LET az32: LET t=24. PLOT a, 


INPUT. "X=";Cc,“ Ya" ;d 
PLOT .FN_X1Cc) ,FN Y1id) 
DRAW -iFN X1C)-2a) ,- (FM Y1d) 


PLOT PN XEJ, NY cd) 
LET asPN X(1c): LET b=sPFNm Y 1d 


1 
1 
1 
b 
Í 
1 
1 
1 
1 


0034 DURO 


000 00 000 


Las líneas 180 y 190 definen dos funciones; convierten 
las coordenadas horizontal y vertical del gráfico en 
coordenadas de la pantalla de manera que el progra- 
ma puede marcar (PLOT) y dibujar (DRAW) con ellas. 
La línea 110 fija el primer punto (a,b) en la esquina in- 
ferior izquierda del gráfico. Después, cada vez que Vd. 
teclea un par de coordenadas, el programa las convier- 
te; marca un punto en x.y; dibuja hacia atrás a a,b; mar- 
ca Xy de nuevo; y en la línea 160, hace a,b igual a x.y. 


GRAFICOS DE BARRAS 


La información gráfica puede presentarse de formas di- 
ferentes; los gráficos sirven para mostrar tendencias, 
mientras que los gráficos de barras son útiles para mos- 
trar diferencias en niveles 

El nombre de “barras” procede de que la informa- 
ción, en vez de visualizarse como puntos, se da como 
columnas cuyas alturas corresponden con el tamaño o 
nivel de la variable representada. Estos gráficos se 
usan, por ejemplo en televisión, para mostrar los cam- 
bios de moneda, los números de votos en elecciones, 
etc 


Cómo programar un gráfico de barras 

Como un gráfico de barras es esencialmente un gráfi- 
co, puede usar las mismas técnicas que se usan en un 
programa convencional de gráficos para programarlo 
La diferencia principal es que en vez de marcar un pun- 
to único, al introducir las coordenadas se construye una 
columna. Con el Spectrum, se construyen con unas se- 
ries de cuadrados (usando el cursor de gráficos más la 
tecla 8 y CAPS SHIFT). Después puede usarse INK para 
dar color. El siguiente programa emplea esta técnica 


PROGRAMA DE GRÁFICO DE BARRAS 


10 BORDER 0: PAPER 0: INK 7. € 
20 a 224,24: DRAWY -192,0: D 


FOR c=4 TO 26 STEP 2 
e AT 19.c: 1£-2) /2 


PRINT OINK_ 3:AT r,.2%m+2; "MN" 
MEXT> 7 NEXT m 


Los ejes se dibujan en la línea 20, en las mismas posi- 
ciones que los gráficos de páginas anteriores. El bucle 
FOR... NEXT en las líneas 30 a 50 etiqueta el eje x con 
los números 1 a 12, que podrían representar los meses 
del año. Si las columnas, bajo las cuales han de colo- 
carse las etiquetas, van de 4 a 26 (STEP 2), el número 
de mes está dado por 


mes=(columna-2)/2 


Pruébelo — la columna 4, al comienzo del eje, equiva- 
le al mes 1. La columna 26, al final del eje, equivale al 
mes 12. Hay 12 escalones (STEP) en total. Aquí tene- 
mos el programa en acción: 


GRÁFICOS DE UN COLOR 


Combinación de gráficos 

Los gráficos de barras descritos hasta ahora tienen sólo 
una lista de elementos. Pero es posible reorganizar el 
primer programa para que dé más de una serie de in- 
formación. Podría, por ejemplo, querer incluir en el mis- 
mo gráfico los valores máximos y mínimos (como tem- 
peraturas). No necesita rehacer el primer programa, 
basta hacer algunas adiciones 


105 FOR n=1 TO 2 

150 IF n=1 THEN PRINT INK 3; AT r,2xm+2; 
155 IF n=2 THEN PRINT INK 6; AT r,2xm+2; 
170 NEXT n 


Esto se procesa como antes hasta que haya terminado 
de teclear la primera serie de datos. Después hace n=2 


y pone las columnas de cuadrados amarillos en vez de 
los magenta. La segunda serie de datos debe compo- 
nerse de valores menores que los de la primera, si no, 
el gráfico amarillo tapará el magenta: 


GRÁFICO DE MÁXIMOS/MÍNIMOS 


Cuando comience a introducir la segunda serie de ele- 
mentos, verá que el eje x, y parte del y del gráfico, de- 
saparecen. Puede resolver esto fácilmente redibujan- 
do los ejes cada vez que se dibuja una columna, así: 


156 INK 7:PLOT 224,24DRAW -1920:DRAW 
0,128 


Necesitará visualizar las columnas como PAPER. Esto 
retarda el programa considerablemente, y puede pre- 
ferir redibujar los ejes sólo una vez al final, introducien- 
do la línea anterior como la número 180. 


Separación de barras cambiando INK 

Uno de los problemas de las pantallas visualizadas an- 
tes es no poder distinguir cada barra en el gráfico, di- 
ficultando su referencia con la escala del eje x. Puede 
resolverlo usando de nuevo dos colores, pero ahora al- 
ternándolos a medida que se visualizan las barras de 
una serie de entradas (INPUT). Entonces, es bastante fá- 
cil ver los valores correspondientes del eje x. 

El siguiente programa es una adaptación del prime- 
ro. Quitando las líneas usadas para la doble pantalla, 
puede editar el primer programa para obtener el si- 
guiente. En vez de tener fijado el color INK, éste se con- 
trola ahora con la variable a. Se usa un bucle en con- 
junción con IF.. THEN para establecer el color (azul o 
rojo). Cuando a=1 el color de esta barra es azul; des- 
pués para la entrada siguiente, cuando a es 2, el color 
cambia a rojo. Puede usar este tipo de bucle de cam- 
bio de color con cuantos colores desee. Si quiere au- 
mentar el número de barras que se pueden hacer para 
que aparezcan en un gráfico, puede reducir el ancho 
de cada barra usando un único cuadrado. El pro- 


grama tendría que cambiarse para cambiar las posicio- 
nes de visualización. Aquí hay un programa con gráfi- 
co de dos colores y algunas pantallas ejemplo que po- 
dría producir 


PROGRAMA DE GRÁFICO DE DOS COLORES 


20 BORDER 0: PAPER 0: INkK 7. C 
20 "ez 224,24: DRAWY -192,0: D 
c=4 TO e STEB 2 

1 ¿1c-2)/2 


R r=19 A q STEP -4 


o , 
FOR r=158'10 15-1(t-60)/2 STE 
o INK a:;AT r,2:m+2; “MN 


LET m=m+1 NEXT 
IF m<12 THEN GO To 120 


o.1 


101112 


GRAFICOS CON GRAVEDAD 


En las páginas 18-19 ya vio cómo se'usan SIN y COS 
para obtener curvas matemáticas (como aparecen a 
veces en el mundo real), usando los propios mandatos. 
Pero si quiere que el ordenador simule algo que se 
mueve de forma realista, le ayudará mucho la compren- 
sión de cómo se mueve en la vida real, cuando lo in- 
tente en la pantalla. 

Consideremos una simulación sencilla usando un ba- 
lón que rebota y recorramos las etapas necesarias para 
construir diferentes tipos de programas. En las páginas 
8-9, vio cómo puede usarse IF... THEN para "rebotar" un 
balón en líneas rectas a velocidad constante. Sin em- 
bargo, un balón no se mueve en línea recta. En la si- 
guiente pantalla, un corto programa le muestra cómo 
podría empezar simulando una caída más real (la pan- 
talla inferior incluye imágenes anteriores normalmente 
borradas): 


PROGRAMA DE CAÍDA SIMPLE 


BORDER 1: PAPER S: INK 2: C 


LEFT. r=b- LET c=16;: LET v=1 
PRINT AT r,c;"N” 
PAUSE 100 


Los objetos que caen están influenciados por diversas 
fuerzas —gravedad, resistencia del aire, fricción super- 
ficial y algo llamado “coeficiente de restitución”, que 
los hace moverse de forma compleja. Sin embargo, no 
hay que ser físico para escribir un programa de "rebo- 
te” más realista. Si deja caer un balón, cae al suelo y re- 
bota, eso es todo lo que necesita saber para simular el 
rebote en la pantalla. 

En el programa anterior, la línea 30 visualiza el "ba- 
lón” cerca de lo alto de la pantalla. Después de 2 se- 
gundos de pausa, el “balón” comienza a caer. La línea 
50 lo borra. Después, el número de fila se aumenta en 
1 y, finalmente, el “balón” se visualiza de nuevo. 


Movimiento en dos direcciones 

Si procesa este programa, encontrará que aunque el 
“balón” cae al fondo de la pantalla, su movimiento no 
parece muy real. También termina con un mensaje de 
error cuando el “balón” cae fuera del fondo de la pan- 
talla. El siguiente programa mejora la pantalla hacien- 
do que el “balón” también se mueva lateralmente: 


PROGRAMA DE CAÍDA LATERAL 


BORDER 1: PAPER S: INK 2: C 
LET h=1: 

e 
PRINT AT Fr,c; 


T_c=C+h 
E 


La variable h representa el cambio de posición hori- 
zontal y v el de la vertical. En cada bucle, se suma v 
al número de fila y h al de columna. Ahora es fácil mo- 
dificar el movimiento en cualquier dirección. Por ejem- 
plo, puede hacer que el “balón” rebote añadiendo: 


65 IF c=0 OR c=31 THEN LET h=-h: BEEP 
0.05,20 
66 IF r=0 OR r=21 THEN LET v=-v: BEEP 
0.05,20 


Si suprime las líneas que borran el “balón” cuando se 
mueve, obtendrá una pantalla como esta. Note que el 


“BEEP” suena sólo cuando el “balón” da con el borde 
de la pantalla: 


PANTALLA DE CAÍDA LATERAL 


Simulación de la gravedad 

Aunque ahora el “balón” rebota alrededor de la panta- 
lla, aún no parece completamente real, ya que no imita 
los efectos de un objeto que cae por la fuerza de la 
gravedad. 

Puede añadir una “fuerza” como la gravedad, que ac- 
túe en cualquier dirección o que cambie de dirección 
durante el proceso del programa. La gravedad actúa 
hacia abajo, acelerando la caída del “balón” desde lo 
alto al fondo de la pantalla. Cuando rebota desde el fon- 
do, debe frenar la subida volviéndolo a hacer caer al 
fondo. El siguiente programa imita este efecto. Teclee 
el siguiente listado: 


PROGRAMA DE BALON QUE REBOTA 


BORDER 1: PAPER 0: INkK 7. C 
DATA 48,120,252,252,120,43, 


FOR n=0 TO 7? 
READ x 
POKE USR "a"*n,>x 
NEXT n 


o ten cs: LET. Ccuald6: CET hz: 
y= 
PRINT AT_—r,c: “A” 
PAUSE 100 
REM PRINT AT r,c:-” 
LET v=v+0.2 
CET TSrtY: LET ceacosh 
¿1 OR _Cc>30 THEN LET h=z- 


r>20 THEN LET v=- 
ei a” 


En este programa, el balón es un carácter definido por 
el usuario. En la línea 110 se añade el factor de grave- 
dad; la suma de 0,2 a v significa que el cambio en r 
—posición vertical— ya no es constante; aumenta en 


cada bucle, acelerando el balón. Cuando el balón está 
en el fondo de la pantalla se invierte su dirección (lí- 
nea 140) y v llega a ser negativo, decreciendo el nú- 
mero de fila, además, el factor aditivo de gravedad en 
la línea 110 hace v cada vez menos negativo retardan- 
do el progreso hacia arriba del balón hasta parar su mo- 
vimiento vertical; v vuelve a ser positivo y el balón co- 
mienza a moverse de nuevo hacia abajo. 

Esta pantalla muestra cómo se mueve el balón con 
el programa: 


PANTALLA DE BALON QUE REBOTA 


El balón rebota como antes, pero ahora no alcanza la 
misma altura en cada rebote: decrece gradualmente, 
permaneciendo invariable su movimiento horizontal. El 
resultado es un ejemplo aproximado de una curva lla- 
mada “parábola”. El balón rebotará en la línea del fon- 
do de la pantalla, como lo haría un balón en la realidad. 

De la misma forma que el movimiento vertical pue- 
de ser modificado por una “fuerza”, Vd. puede modifi- 
car el movimiento horizontal. Da la impresión de un ob- 
jeto que no sólo cae por la gravedad sino que también 
es empujado por un fuerte viento. 

La curva que el balón hace durante este programa 
no es continua, debido a que el balón es un carácter 
de texto, y su movimiento está limitado a las 32x22 po- 
siciones en la pantalla. Si quiere obtener un rebote más 
limpio, experimente con el mandato PLOT. Se produci- 
rá un punto único en unas coordenadas gráficas, dan- 
do una curva más nítida sobre la red de gráficos de 
256x176. Sin embargo, para hacerlo tendría que modi- 
ficar el programa de manera que las posiciones de ca- 
racteres en todas las líneas se convirtiesen en coorde- 
nadas de gráficos. Si Vd. consulta la página 59 verá que 
no es tan difícil Como un punto único no es tan fácil 
de seguir, es más sencillo dejar todas las posiciones 
marcadas en la pantalla para construir una serie de cur- 
vas de gravedad, siguiendo el camino del punto cuan- 
do cae al suelo. 


Las seis páginas siguientes le ayudarán a programar 
juegos, mostrándole cómo reunir todas las fases para 
hacer un listado completo. La escritura de estos pro- 
gramas requiere alguna planificación cuidadosa antes 
de empezar a escribir las líneas. Para empezar, nece- 
sita decidir qué tipo de juego desea. Muchos juegos 
combinan la habilidad con un elemento de suerte (da- 
dos, naipes, etc.), y muchos tienen una serie de fases 
diferentes, las cuales le enfrentan con una serie dife- 
rente de problemas. 

Para planear un juego, lo mejor es empezar dibujan- 
do un boceto de la pantalla marcando los colores y las 
posiciones de cualquier carácter o modelo fijado. Que- 
rrá volver a este boceto cuando escriba su programa. 

Después, puede dibujar un diagrama que muestre las 
etapas de programa y el orden en que aparecerán. No 
es necesario un gráfico detallado —basta una lista de 
etapas conectadas con flechas para indicar su orden. 
Un programa completo de juego será más complicado 
que los programas que haya escrito hasta ahora, por lo 
que es conveniente diseñar el programa antes de te- 
clearlo. Es más fácil borrar una flecha o un par de lí- 
neas a lápiz, en el plan, que redisponer líneas en la pan- 
talla, si al procesar el programa encuentra que no 
funciona. 


Tecleado de la fase 1 

Con el juego de esta página, se ha completado la eta- 
pa de planificación y ahora puede teclear la primera 
parte del programa de dos fases. El listado que sigue 
es para un juego práctico —uno que todos podrían ju- 
gar sin conocimiento previo del programa o del orde- 
nador. Debajo está la primera pantalla del programa. 
Esta fase del juego implica disparo a una nave espa- 
cial móvil: 


FASE 1 - PANTALLA 1 


Ots 
PAPERS, =CLS 
3,80,30,126,90,13 


TA 60,126.90,255,16S5,125, 


VOJDNNE NONE 


*+n,2 

“gn, 

x n 

DEF_FN t1)2(16553 

a 235 7T53+PEEF 

110 ET 2.2%: LET f=0. 
43 


(RANOxXIS): 


6 FREEK 235 
23672) 50 


LET q=0. 
LET c=1I 


ps 
2) 
o 


LET m=16 
n=n+1: IF 


LET a=1 


n=6 THE 

400 

180 LET h=0. 
serot1t? 


El programa le da una base de láser que Vd. puede mo- 
ver a izquierda o derecha. Sólo puede disparar verti- 
calmente. Unas naves se le aproximan una a una y Vd. 
debe destruirlas para continuar. 

Los DATA para nave y base de láser definidas por 
el usuario se «leen» por el bucle de las líneas 50 a 90. 
El tiempo empleado para completar el juego, que se 
usará más tarde para calcular la puntuación, se define 
en la línea 100 con la técnica empleada en la página 
21. Algunas de las variables usadas en el programa se 
ponen en sus valores iniciales con la línea 110. 

El programa es imposible de descifrar si no sabe qué 
representan las variables. La tabla siguiente resume 
qué significa cada una: 


Variable(s) Función o significado 

Fija coordenadas de fila y columna de la nave 
Fija coordenadas de fila y columna de base láser 
Registra los impactos láser 


Registra el total de impactos láser sobre el blanco 


f 
q Registra el número de disparos del láser 


Punto de partida del rayo láser 


Fija el cambio de posición de la nave (=1 de izquier- 
da a derecha, en caso contrario =-1) 


Fija la posición en columna de explosión de una 
mina 

Registra el tiempo empleado para terminar el jue- 
go cuando se resta de FNt() 


Variables generales 


La línea 120 fija el punto inicial aleatorio para la nave. 
La línea 130 inicia su base láser en la mitad de la fila 
17. En la línea 140, n registra el número de ataques de 
la nave. Cuando ha habido cinco ataques, n será igual 
a 6; entonces el programa salta a la línea 400 y calcula 
la puntuación. 

La segunda pantalla del programa contiene un nú- 
mero de líneas que toman decisiones y después diri- 
gen el programa a subrutinas posteriores. Verá cuan- 
do avance en el listado que los números de línea sal- 
tan a veces más de 10. Es debido a que para los nú- 
meros de líneas de subrutinas es más fácil recordarlas 
como múltiplos de 100. 

Cuando teclee las líneas de la segunda pantalla, re- 
cuerde que D y C en las líneas 170 y 180 representan 
caracteres definidos por el usuario. Esto significa que 
necesitará conmutar al cursor de gráficos para que no 
se visualicen como letras (después de procesado el 
programa, pueden listarse en la forma en que apare- 
cen en el juego). La segunda pantalla aparece como 
esta: 


FASE 1 - PANTALLA 2 
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Después de una pausa aleatoria (línea 160), la base lá- 
ser y la nave aparecen de nuevo. Las líneas 200 y 210 
le permiten mover su base a uno u otro lado y la línea 
220 la detiene, desapareciendo del lado de la pantalla. 
Si pulsa la tecla M, el programa salta a la rutina de "fue- 
go”, en la línea 500. Si ésta registra un impacto, el pro- 
grama retrocede a la línea 120 y comienza de nuevo. 

Las líneas 250 y 260 controlan el movimiento de la 
nave. Las líneas 270 y 280 hacen que el programa salte 
a la rutina de mina —que está posicionada por una va- 
riable listada en la tabla de la página opuesta— en la 
línea 600 una vez en cada 20 movimientos de la nave 
Esto se hace escogiendo un número aleatorio de l a 
20; precisamente uno de estos números accionará la ru- 
tina de mina. La línea 290 continúa el mismo ataque re- 
trocediendo a la línea 170. 

Las líneas 400 y 410 calculan la puntuación y termi- 
nan esta parte del programa. La puntuación está basa- 
da en el tiempo empleado en completar el programa, 
el número de veces que fue disparado el láser y el nú- 
mero de impactos directos. Realmente la puntuación 
no se usa aquí, pero aparecerá más tarde cuando Vd 
desarrolle el juego. Si quiere comprobar que las líneas 
de puntuación trabajan, procese el programa y des- 
pués teclee el mandato PRINT s, sin número de línea. 
Su puntuación se visualizará en la pantalla. 


Sección de la subrutina 
Finalmente, aquí está la última parte del primer progra- 
ma. Contiene un par de subrutinas. Las líneas 500 a 550 
dibujan y borran el láser usando DRAW y OVER 1. Si 
m=cC el láser ha impactado su blanco. Las líneas 600 a 
690 explosionan una mina en la fila 17. La posición de 
columna de la mina es aleatoria. Si cae sobre la base 
de láser, el valor q de su puntuación será afectado. 

Una vez que Vd. haya tecleado el listado de la pan- 
talla siguiente y procesado esta fase del juego, guár- 
dela en una cinta de manera que esté preparada para 
combinarla con la parte siguiente del programa: 


FASE 1 - PANTALLA 3 


soo LE 
qa=9a+1 

Si0 PL( 
1;0,135 
Ss20 BE 
S30 OR 
Sa40 IF 
h=1 pa 
S5S0 RE 
600 LET 
510 FO 
520 PR 
630 6E 
540 PR 
650 BE 
5650 NE 
670 1 

630 2 

690 RET 


Aquí tiene el programa en acción. En la primera pan- 
talla, el láser está disparando a la nave, mientras en la 
segunda ha aparecido una mina: 


PANTALLAS DE FASE 1 


En la segunda fase del programa, la escena cambia del 
aire al mar: un barco lanza una carga de profundidad 
a un submarino móvil. De nuevo, el objetivo es alcan- 
zar al enemigo. Las instrucciones de puntuación no se 
usan aún en esta fase, pero están preparadas para en- 
trar en operación cuando se ha tecleado la última fase 
del juego, uniendo las dos primeras partes. 

Como antes, el programa usa un número de varia- 
bles para controlar movimientos y subrutinas. Hay que 
explicar estas variables si se quiere entender lo que su- 
cede (en sus programas de juego podría usar líneas 
REM como recordatorio). 


Variable(s) Función o significado 


Después de la línea 1090, fija la posi- 
ción de columna del barco. 


Coordenadas de fila y columna del 
submarino. 


Registra cuándo ha caído la carga de 
profundidad. 


Coordenadas de fila y columna de la 
carga de profundidad. 


Establecimiento de la escena 
La primera sección del programa produce la pantalla 
coloreada y selecciona algunos números aleatorios: 


00 DEF : PEEK 2365 
74? ESE PEER 3672) 50 


LET T=Fim 
BORDER 2. PAPER 4: IMk 1: € 
1F n=S THEN GO Ie 1400 
FOR r=0 TO 4 


FOR <=0 TO 31 
PRINT AT r,c; “WN 
NEXT c 


INKEYS5=" 
INKEYS5="x" THEN LET c<=C+ 
c>25 THEN LET c=25 


De momento, ignore la línea 100; en la página siguien- 
te se enterará por qué se ha incluido. Las líneas 1050 a 
1090 visualizan un cielo azul sobre un mar verde, tra- 
zando filas de cuadrados azules sobre la parte supe- 
rior del fondo verde del papel. La línea 1100 fija la po- 
sición de columna del barco y las 1130 a 1160 contro- 
lan su movimiento a través de la pantalla. 


El objetivo del juego es impactar el submarino. La te- 
cla M controla el lanzamiento de las cargas de profun- 
didad del barco. El barco también es maniobrable. Si 
Vd. pulsa la tecla Z, el barco se moverá a la izquierda, 
y pulsando la X, a la derecha. Todas estas funciones 
son controladas por INKEY$ para una rápida respuesta. 
El barco siempre empieza en la mitad de la pantalla. 
La posición del enemigo es menos predecible. Las lí- 
neas 1110 y 1120 fijan el punto de azar inicial del sub- 
marino; puede aparecer a casi cualquier profundidad 
y en cualquier punto a través de la pantalla. 


Programa principal y subrutinas 

La segunda parte del programa contiene algo del pro- 
grama principal, junto con subrutinas que son llamadas 
por el programa principal. Aquellas controlan el movi- 
miento sobre la pantalla y detectan si sus cargas de 
profundidad han alcanzado el blanco o no. 


SECCIÓN DE SUBRUTINAS 


cx<0 TH LET_c=0 
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e] ed AND e<d+56 TH 
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La línea 1200 hace saltar al programa a la rutina de car- 
ga de profundidad en la línea 1300 si se pulsa M. La 
puntuación, s, también se ajusta cada vez que se lanza 
una carga y está relacionada con el tiempo que ha pa- 
sado usando FN t() en la última línea del programa. Las 
líneas 1210 a 1240 controlan el movimiento y aparición 
del submarino. La línea 1250 continúa el programa vol- 
viéndolo a la línea 1130 para comprobar el teclado por 
pulsaciones de tecla. 

Las líneas 1300 a 1360 hacen que una carga baje por 
la pantalla. La carga se compone del carácter de grá- 
ficos de la tecla 3. Si la carga alcanza el fondo de la pan- 
talla, la línea 1330 vuelve f a su valor original (cero) y 
retorna al programa principal. Sin embargo, si la posi- 
ción de la carga coincide con cualquiera ocupada por 
el submarino (línea 1350), ese ataque está terminado y 
se empieza uno nuevo. Notará que cuando procesa el 
programa sólo puede lanzarse una carga cada vez. Si f 
se ha fijado en 1 por la línea 1200, cuando se lanza una 
carga, la línea 1190 le impide lanzar otra carga hasta 
que f sea cero de nuevo. Esto será cierto si la carga al- 
canza el fondo de la pantalla (línea 1330) o si impacta 
al submarino (línea 1350). 

El programa usa gráficos del teclado para construir 
todos los objetos en esta pantalla y, como verá en las 
pantallas siguientes, los resultados muestran los boce- 
tos de estos caracteres. Sin embargo, es fácil mejorar 
el juego usando caracteres definidos por el usuario. 
Para hacer un barco o submarino, visualice una fila de 
caracteres juntos. La mayor resolución que pueda en- 
tonces alcanzar mejorará considerablemente la panta- 
lla, aunque se necesitarán más líneas de programación. 

Aquí se muestran algunas pantallas del juego en ac- 
ción. En la tercera, se ve el camino de una simple car- 
ga poniendo un mandato REM en la línea 1310, incapa- 
citando el mandato PRINT que normalmente borra la 
carga cada vez que ésta se mueve una posición hacia 
abajo: 


PANTALLA DE FASE 2 


PANTALLAS DE FASE 2 


Podría haberse dado cuenta de que no parece existir 
aquí ningún medio de borrar las antiguas imágenes no 
deseadas de barco y submarino antes de visualizar las 
nuevas imágenes. Como ambos sólo se mueven una 
posición a uno u otro lado de su posición en curso, pue- 
den borrarse incluyendo un cuadrado blanco (espacio) 
a Cada lado de los gráficos. 


La rutina de puntuación 

Se usa el tiempo una vez más para calcular la puntua- 
ción al final del juego. En la versión final de este pro- 
grama, se definirá la función tiempo en la primera fase 
del juego y no es necesaria una segunda definición en 
esta parte. Sin embargo, si quiere comprobar que el 
programa funciona adecuadamente, necesita tener la 
función tiempo de forma que pueda visualizar s. La lí- 
nea 100 se pone para poder probar la rutina de pun- 


- tuación. La función tiempo se quitará de nuevo cuando 


se escriba la versión final del juego. 
Cuando haya comprobado que el programa funcio- 
na, guárdelo preparado para combinarse con la fase 1. 


Ahora que ha tecleado y guardado las dos primeras fa- 
ses del juego, está preparado para añadir las instruc- 
ciones y completar la parte de programa que dará la 
puntuación. Lo primero a resolver es que los dos pro- 
gramas se guardaron como dos archivos separados en 
su magnetófono. Para procesarlos como programa úni- 
co necesitan combinarse. No puede simplemente car- 
gar (LOAD) un programa de una cinta a otro que está 
ya en la memoria del ordenador. Si lo hace, verá que 
el programa en memoria simplemente desaparecerá, 
como si hubiese pulsado NEW. 

El Spectrum resuelve el problema con el mandato 
MERGE, que junta el contenido de los dos archivos. 
Para usarlo, imagine que ha guardado los dos progra- 
mas de las páginas 38-41 en cinta pero que el progra- 
ma «caza-submarinos» está ya en la memoria del orde- 
nador. Si entonces teclea: 


MERGE " Ñ 


—poniendo entre las comillas el nombre del primer ar- 
chivo— y después pulsa ENTER y pasa la cinta, el pri- 
mer programa se cargará en el ordenador. Esta vez el 
programa «caza-submarinos» no se borrará como suce- 
de con LOAD. Sin embargo, MERGE sólo combina pro- 
gramas si sus números de línea no se solapan. La línea 
extra (100), añadida al programa “caza-submarinos” 
para poder comprobar la rutina de puntuación, se so- 
bre-escribirá por la línea 100 del primer programa. Esto 
es por lo que el “caza-submarinos” se numera desde 
1010 en adelante. Si se hubiera numerado desde la lí- 
nea 10, habría sido sobre-escrito por la primera fase 
del juego en donde hubiera líneas del mismo número. 

Las dos fases fusionadas son ahora un programa úni- 
co. Como medida de precaución debería ahora guar- 
dar el programa conjunto en una cinta. Merece la pena 
si se ha de desarrollar un largo programa, ya que un 
borrado accidental podría traducirse en mucho tiempo 
para rehacerlo. 


Adición de las instrucciones del juego 
Si procesa un programa fusionado, verá que, aunque es 
teóricamente un sólo programa, se comporta aún como 
dos unidades separadas. Al escribir programas en fa- 
ses, como éste, necesitará hacer una pequeña adapta- 
ción al programa final fusionado para hacerlo pro- 
cesable. 

La unión de las dos fases se hace fácilmente. Cam- 
bie la línea 410 por: 


410 GOTO 1000 


Eso no es un error, aun cuando el programa "“caza-sub- 
marinos” empieza en la línea 1010. Es para permitirle al- 
gún espacio para añadir instrucciones de juego empe- 
zando en la línea 1000. 


Ahora puede retroceder al principio e iniciar el pro- 
grama con un cuadro de título que contenga todas las 
instrucciones que el jugador necesita. Se necesita lis- 
tar las teclas que controlan el movimiento de objetos 
en la pantalla, y también decirle al jugador cómo se ha 
de iniciar el juego, teniendo en cuenta que cuando apa- 
rece el mensaje, el programa que contiene el juego ya 
está en proceso. Aquí hay cuatro líneas que dan las ins- 
trucciones de apertura para la fase 1: 


LÍNEAS DE INSTRUCCIONES DE FASE 1 
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Las líneas 1 y 2 visualizan el título del juego y explican 
sus controles. La línea 3 impide al ordenador aceptar 
sus tecleados RUN y ENTER como activadores para ini- 
ciar el juego. La vez siguiente que Vd. pulse una tecla, 
se rompe la condición de repetir la línea 4, y comienza 
la primera fase del juego: 


INTRUCCIONES DE FASE 1 


POT SHOTS 
EXALILIZ%A 


Five alien spacecraft 
are laying mines in your zone 


You must destroy the atiens 
RARA AEREA AAA AAA 


LASER BASE CONTROLS 
ES CEE HI FIDE m:fire 


Press any key to start 


Las instrucciones para la segunda fase del juego se in- 
sertan de forma similar: 


LÍNEAS DE INSTRUCCIONES DE FASE 2 


:DC 

EA > 00 
ce n.d 

DN T7EA)DO 


CE A] 
00M Tu 


X(W0HpPOoDI Du 
DU: 1408 4<=-0 


t 
THEN GO TO 10 


THEN GO TO 100 


SURFACE SHIP CONTROLS 
ZLOrFt X:Fight m:drop charge 


Press any key to start 


Puede, por supuesto, usar cualquier tecla que quiera 
para especificar movimiento en tanto la cambie en el 
programa. Ahora ninguna fase del juego comienza has- 
ta que el jugador está preparado y pulsa una tecla para 
empezar. 


Completado de la rutina de puntuación 

También necesita añadir una rutina de puntuación al fi- 
nal del programa fusionado. Se retiene la línea final de 
puntuación del "caza-submarinos”: 


1400 LET s=s+FNt()-T 


Sin embargo, si ha jugado los dos juegos y después ha 
tecleado PRINT s, habrá notado que la primera fase del 
juego da un resultado que va desde -20 o así a cien- 
tos, pero la segunda fase produce resultados de cien- 
tos a miles. Los resultados de los dos juegos deben ser 
del mismo orden de magnitud. Se consigue multipli- 
cando la puntuación total en la línea 400 por 100, lo que 
hace la puntuación compatible con la de la fase 2: 


400 LET s=100x(FNt)-T)/5+q 2-(10xf) 


¡Esta línea es una prueba de su comprensión de las va- 
riables! Para hacer más interesante la presentación de 
la puntuación, puede añadir unas líneas para convertir 
esta puntuación numérica en categorías: 


RUTINA DE PUNTUACION 


ES SORDER 0. PAPER 7: INK 8. C 
1420 PRINT AT 6,2;"You have earn 
ed the rank of” 

s:<10006 THEN LET as="Comm 
¿AND s<2000 THEN 
AND S:<4000 THEN 
AND s<6000 THEN 
THEN LET a5$="ROO 


«TIE" 
14580 PRINT AT 10,12;25% 


w Dv Hv Dv 
"On Fu Du 


You have tre rank of 


Las líneas 1410 a 1480 dividen las puntuaciones en ban- 
das, a cada una de las cuales se le asigna una catego- 
ría. Una serie de líneas IF.. THEN decide dónde cae su 
puntuación en la clasificación. Vd. puede cambiar los 
límites de cada banda para dificultar o facilitar los 


: Juegos. 


Ahora tiene'un juego completo de dos fases con ins- 
trucciones, acción y rutina de puntuación. Aunque las 
dos fases usadas en estas páginas son simples, la manera 
de combinarlas puede usarse para elaborar juegos pro- 
pios mucho más complejos. Puede usar MERGE para jun- 
tar un número de sub-programas, escrito y probado cada 
uno por su parte. La única restricción es el tamaño de me- 
moria del ordenador, pero a menos que combine progra- 
mas muy largos no será un problema. 


El mandato usado en el Spectrum para producir soni- 
do, BEEP, es muy sencillo. La línea: 


100 BEEP dp 


producirá un sonido en un tono p durante d segundos. 
Uno de los problemas de usarlo en programas es que 
para todo mientras suena. Así, si quiere producir lar- 
gos sonidos en conjunción con movimiento en la pan- 
talla no puede usar un simple mandato BEEP, o el pro- 
grama se "“congelará” mientras dura BEEP. Para enlazar 
sonido y movimiento en lo posible, se necesita usar 
BEEPs breves con frecuencia. 


Cómo mejorar sonido con animación 
Vd. puede oír BEEP funcionando mal con movimiento 
si procesa el programa: 


PROGRAMA BÁSICO DE SONIDO Y ANIMACIÓN 


El platillo volante está formado por seis caracteres de- 
finidos por el usuario dispuestos en dos filas —a, b, C, 
arriba y d, e, f, debajo, con un espacio a cada lado. Ade- 
más, se visualiza una fila de espacios encima y debajo 
del platillo, para que, siempre que se mueva, los espa- 
cios borren cualquier imagen previa. La línea 200 da O 
o l al azar. La 210 los convierte en -1 o +1, utilizados 


So 5 para cambiar la posición del platillo. La línea 220 da 
na otro 0 o 1 al azar. Si se tiene O, la fila del platillo se cam- 
PC e bia por la variable a; si se tiene 1, se cambia su colum- 
139 POKE Pon sz na por a. Esto mueve el platillo en la pantalla de forma 
NEXT : : ¿ . p 
120 LET re10. LET c=14 impredecible. La línea 250 comprueba si el platillo ha 
150 BORDER 2. PAPER S3: INK 6 [2 : 
L5 dE 5 alcanzado un borde de la pantalla; caso afirmativo, lo 
160 PRINT AT r.c: 
PRINT AT r+i, > 


devuelve al centro de la pantalla. El sonido viene dado 
por la línea 260 en un simple mandato BEEP de una du- 
ración de un quinto de segundo. Puede mejorarse aña- 
diendo estas líneas: 


NUEVAS LÍNEAS PARA DIVIDIR EL SONIDO 


serot1t? 


PRINT AT r+2,C;”“ 
PRINT AT_r+3 Pica 


MONA 
ORUNROD 
SUNUINNN 


a 
250 IF Cc<0 OR Cc>27? OR Fr<0 OR r> 
18 THEN GO TO 150 
260 BEEP 0.2,25 
270 GO TO 1608 


La primera versión es un ejemplo muy pobre de ani- 
mación. La animación efectiva depende de cambiar 
desde una pantalla de caracteres a la siguiente tan rá- 
pido como sea posible, pero en el programa el BEEP 
interrumpe el movimiento demasiado tiempo y el pla- 
tillo se mueve de forma lenta e interrumpida, por lo 
que realmente el efecto del sonido añade poco. 

Añadiendo las líneas de la anterior pantalla puede di- 
vidir el BEEP en un número de sonidos más cortos, me- 
jorando la calidad de sonido en el programa. Cada 
BEEP dura ahora sólo cinco centésimas de segundo. La 
duración total de todos los BEEPs (0,035 segundos) es 
menos de un cuarto del BEEP usado anteriormente, así 
el programa marcha más o menos cuatro veces más rá- 
pido que en la primera versión. Además, el sonido di- 
vidido en un número de exposiciones separadas per- 
mite variar el tono, lo que produce un efecto sonoro 
mucho más interesante. 

Podría también escribir más BEEPs entre las líneas 
de introducción (10 a 140) para anunciar la llegada del 
platillo antes de aparecer, pero note que cualquier 
BEEP escrito entre las líneas 50 a 130 sonará ocho ve- 
ces debido al bucle n que las conecta. 


Cómo enlazar BEEP a las posiciones de la pantalla 
Un medio muy eficaz de producir sonido con anima- 
ción es enlazar el tono del BEEP a una variable que con- 
trola una posición de carácter en la pantalla. Vd. ya se 
encontró con esto en el programa de "rebote” (páginas 
8-9). Enlazar así BEEP es realmente fácil y ahorra mu- 
chas líneas de programación. Sólo debe asegurarse de 
que la variable que controla el BEEP caiga dentro del 
margen adecuado, y se use para cambiar la duración 
del tono en el sentido correcto. Puede experimentar es- 
tas técnicas en el programa siguiente. Tecléelo y 
procéselo. 

Este programa visualiza un campo de estrellas y des- 
pués mueve, hacia arriba, un cohete de gráficos del te- 


ENLACE DE BEEP CON POSICIÓN 


10 BORDER 6: PAPER 1: INK 6: C 
A .3,27,4,20,6,1 
0,535,350,9,22, 13; 3,10,26, 168, 3, 
Ez A ¿26? 24, zi, 10 

30 FOR To ís 
= E E pe 
TO 4 STEP -=1 
4,12; 


clado. Las líneas 10 a 60 visualizan el campo de estre- 
llas. Las líneas 70 a 130 visualizan y mueven el cohete. 
Cuando procesa el programa debe aparecer la panta- 
lla siguiente: 


PANTALLA DE BEEP ENLAZADO 


Ahora puede añadir los efectos de sonido al programa 
anterior. Esta vez su objetivo es producir un sonido ex- 
traño de cambio de tono. Sólo se necesita una senten- 
cia BEEP que contenga una variable a, cuyo valor cam- 
bie de tono cada vez que se produce el BEEP. Lo in- 
mediato es relacionar el tono al número cambiante de 
fila. El problema es que el sonido debe aumentar de 
tono a medida que sube el cohete, pero con ello el nú- 
mero de fila decrece. Así, si se hiciera el tono múltiplo 
o submúltiplo del número de fila, decuceía al subir el 
cohete. 

Hay una manera de resolver este problema. Pruebe 
tecleando la línea: 


125 BEEP 0.05,80-(10*r)/2 


Ahora, cuanto menor es r, mayor el número de tono. Si 
la escala de tonos es demasiado grande, multiplicando 
r por un número menor se reducirá: 


125 BEEP 0.05,80-(Sxr)/2 


Si los tonos son en conjunto demasiado altos, reducien- 
do el valor inicial (80) se reducirán los de todos. 


125 BEEP 0.05,60-(Sxr)/2 


Para hacer más interesante el sonido, puede dividirlo 
en dos componentes: 


75 BEEP 0.025,60-(5xr)/2 
125 BEEP 0:.025,63-(5xr)/2 


En muchos programas de juegos Spectrum, las áreas 
de color INK en la pantalla representan objetos que tie- 
ne que evitar. Si Vd. choca con ellas, los programas res- 
ponden con un tipo de penalidad. Pero, ¿cómo progra- 
mar el ordenador para que decida si un carácter que 
Vd. mueve en la pantalla ha tocado algo? Podría usar 
IF... THEN para comprobar coordenadas, pero hay una 
forma más rápida y sencilla. 

El mandato POINT, del Spectrum permite que el or- 
denador examine cualquier punto en la pantalla y com- 
pruebe si es un color PAPER o INK. En la línea: 


100 a=POINT(x,y) 
a será igual a cero si x,y es un PAPER, o será igual a 1 
si x, y es INK. 

El siguiente programa produce cuadrados de color 


al azar, y después le permite comprobar si un particu- 
lar par de coordenadas está cubierto por PAPER o INK: 


COMPROBADOR PAPER/INK 


SORDER 23: PAPER 
FOR n=i TO 2060 


TX, Y 
2=POINT 1x.34us 


290 LE 
e P2LoT .u 
IF 32=0 THEN PRINT 


a 
e 1F 23221 TMEN PRINT 
130 o yo se 


Las líneas 20 a 60 visualizan cuadrados azul oscuro al 
azar sobre un fondo azul claro. La línea del fondo de la 
pantalla se deja en blanco para uso posterior. La línea 
70 conmuta a INK negro. La línea 80 espera a que Vd. 
teclee las coordenadas x,y de cualquier punto. 

Teclee una abscisa, X, (0-255), pulse ENTER, y después 
teclee una ordenada, y, (0-176) y pulse ENTER de nuevo. 
La línea 90 comprobará si este punto es PAPER o INK. La 
línea 100 marca un punto negro en x, y para señalarlo. Vea 
que este programa no funcionaría si las líneas 90 y 100 
estuvieran invertidas, debido a que x,y sería siempre INK, 
que viene justo después de marcar x.y. 

El resultado de la línea 90 está visualizado en la fila 
21 por las líneas 110 y 120. Si x,y es PAPER, el punto 
introducido aparece como un pequeño punto negro en 
la pantalla. Si x,y es INK, todo el cuadrado se vuelve ne- 
gro debido a que si se cambia el color INK de un sim- 
ple punto en cualquier posición del carácter, toda la po- 
sición del carácter cambia al nuevo color INK. 


Cómo usar POINT con movimiento 

Ahora que sabe usar POINT, haga una aplicación prác- 
tica de este mandato. Probablemente habrá atravesa- 
do situaciones en que tiene varios caracteres en la pan- 
talla, pero no quiere molestarse en almacenar sus po- 
siciones y recalcular cuando cualquiera de los carac- 
teres se mueve, con objeto de conocer su posición du- 
rante la animación. 

El siguiente programa resuelve ese problema. Usa 
POINT para probar la posición de obstáculos disper- 
sos en la pantalla cuando un carácter rebota entre los 
bordes de la pantalla. Hay sólo unos pocos obstáculos 
en esta pantalla, pero puede fácilmente aumentar el nú- 
mero cambiando el margen del bucle entre las líneas 
20 y 50: 


PROGRAMA DE DRAGAMINAS 


os BORDER 1: PAPER 6: INK 1: 


20 FOR n=1 TO $S 
SO _LET _ s=INT i¿RND*2Z=5. 
(ANDE32) 
40 PRINT AT 2,94; "E" 
NEXT n 


LET a=I 


LET Ccs?: LET yz1: 
c=d THEN GO TO ZE 


O 
r=21 THEN LET v=- 


c=31 THEN LET h=- 


LET c=c+h 
LET yu=2176-1r:85 


x.Y)=212 THEN GO TO 


*+DONOA 
97 


00D 


- + 
B 


IF POINT 


PRINT INr 0;AT 


=3+1 
200 PRINT INnr 


K n 
230 60 TO 10 


El programa usa POINT para localizar caracteres INK 
sobre una pantalla PAPER. Las líneas 20 a 50 visualizan 
minas (cuadrados) azul oscuro sobre una pantalla ama- 
rilla. La línea 60 fija la posición de partida del dragami- 
nas (un símbolo “copyright”). Si la posición de partida 
coincide con alguno de los cuadrados azules aleato- 
rios, se visualiza una nueva serie de cuadrados azules 
aleatorios. Las líneas 80 a 150 forman una rutina que ya 
hemos visto varias veces. Hace que el dragaminas re- 
bote en la pantalla de lado a lado y de arriba abajo. 
Cada vez que el dragaminas alcanza uno de los cuatro 
bordes de la pantalla, cambia su dirección y suena un 
BEEP. Este tiene un tono más alto en los choques late- 
rales que en los verticales. 

Para cada posición en que se instala el símbolo del 
dragaminas, la línea 120 convierte sus coordenadas de 
fila y columna en coordenadas x,y gráficas del punto 
medio de la posición. La línea 130 después comprueba 
si ésta es color PAPER o INK. Si es PAPER, el programa 
retrocede a la línea 80, borra el dragaminas y lo revi- 
sualiza en una nueva posición (calculada por la línea 


110). Si es INK, la línea 130 restituye el valor 1 y el pro- 
grama salta a la subrutina de explosión en la línea 190. 
Esta visualiza dos caracteres gráficos en una gama de 
colores diferentes, acompañado de efectos de sonido. 
Después de cada explosión, el programa retrocede a 
la línea 10 y comienza de nuevo: 


PANTALLAS DEL DRAGAMINAS 


El número de minas se fija en 5 de manera que el dra- 
gaminas tenga suficiente espacio para atravesar la pan- 
talla varias veces antes de que choque con algo. Vd. 
puede provocar una explosión aumentando este núme- 
ro en la línea 20. El “enmascaramiento” de la pausa en 
la línea 140 también acelerará el programa. 

Usar POINT en rutinas como esta le permite progra- 
mar el ordenador para tomar una decisión compleja 
con una sencilla serie de mandatos. POINT es muy útil 
en juegos en los que se controla un objeto que hay que 
conducir por la pantalla y evitar paredes u otros obs- 
táculos. Puede probar su práctica usando POINT para 
dirigir el programa a un fracaso o a una subrutina de 
penalización cuando Vd. entre dentro de INK. 


MODELOS CON SIMETRIA 


Si con el Spectrum produce un modelo aleatorio, la pan- 
talla será impredecible por completo. Con una técnica 
sencilla, es posible generar una pantalla con resultado 
simétrico. Una pantalla impredecible de un modelo 
aleatorio en toda la pantalla, lo que es útil para produ- 
cir un fondo de efecto de “galaxia” para un juego de 
guerra de las estrellas. Pero con una pantalla simétrica, 
la primera parte del programa produce un modelo 
aleatorio en un cuarto de pantalla; los otros tres cuar- 
tos repiten este modelo en cada una de las tres esqui- 
nas de la pantalla con efecto similar a la reflexión en 
un espejo. 

Para ver cómo hacer esto, primero necesita un pro- 
grama que produzca una pantalla aleatoria, lo que es 
muy fácil en el Spectrum: 


PROGRAMA DE PANTALLA DE AZAR 


BORDER 3: PAPER 1: 
n=1 TO 3009 
INT —(AND*32) 
S=INT (RNDF22) 
NT AT r,c;: “MN 


Este corto programa produce repetidas coordenadas 
de fila y columna para una posición aleatoria en la pan- 


talla. Aunque la columna más a la derecha está nume- 
rada como 31, la línea 30 incluye el número de colum- 
na 32 ya que la función INT redondea los números al 
entero inferior más próximo y por ello el mayor valor 
posible de INT(RND*32) es 31. El símbolo de gráficos 
en la tecla 8 se usa para producir la pantalla. Hay un 
total de 704 posiciones de caracteres; así como máxi- 
mo se cubre la mitad de la pantalla. No hay nada que 
impida que las líneas 30 y 40 produzcan el mismo par 
de coordenadas en varias ocasiones, por lo que con fre- 
cuencia los cuadrados INK ocuparán un área menor 
que ésta. 


Cómo reflejar un modelo de azar 

Ahora puede usar el símbolo de gráficos, pero de for- 
ma diferente, para convertir este modelo aleatorio en 
uno de simetría: 


PROGRAMA DE PANTALLA SIMETRICA 


BORDER 1: PAPER 0: 
n=i TO ?5 


60 NEXT n 


Este programa divide la pantalla en cuatro cuartos 
iguales. Todas las coordenadas producidas por las lí- 
neas 30 y 40 caen en el cuarto superior izquierdo; se 
copian en las posiciones correspondientes de los otros 
tres cuartos. Como cada par de coordenadas produce 
la visualización de cuatro símbolos en la pantalla, el 
programa sólo necesita realizar la cuarta parte de bu- 
cles del programa anterior. El valor máximo de n en la 
línea 20 se reduce por tanto a 75, pero —como antes— 
se obtienen 300 imágenes. La primera pantalla siguien- 
te muestra un proceso típico del programa; la segun- 
da, el resultado de adaptar el programa cambiando la 
línea 10 así: 


10 BORDER 1:PAPER O:INK 6:CLS 


y después usando un carácter de gráficos más peque- 
ño (tecla 3). El programa producirá una pantalla dife- 
rente Cada vez que se procese: 


PANTALLAS SIMÉTRICAS 


El programa resuelve las posiciones simétricas de cada 
imagen original ejecutando algunas sencillas operacio- 
nes aritméticas sobre las coordenadas r,c. La primera 
imagen de espejo está en la misma fila que la original 
pero en el lado opuesto de la pantalla y sus coordena- 
das son, pues, 1,31-c. Cada punto se refleja en otros dos 
en la mitad inferior de la pantalla, distando del fondo 


Punto original 


USO DE COORDENADAS SIMÉTRICAS 


lo mismo que los superiores del tope; así pues, sus 
coordenadas son: 21-r,c y 21-r, 31-c, en la línea 50. 


Cómo programar una red de palabras cruzadas 
La mayoría de los crucigramas se construyen con re- 
des simétricas, y reflejando los cuadrados negros en 
una esquina del crucigrama, puede programar que el 
ordenador complete la visualización. De nuevo se po- 
sicionan los cuadros originales al azar: 


PROGRAMA DE CRUCIGRAMA 


c 


INF 0. 


PAPER 6: 


d 0.136 STEP 89 
30 PLOT 30,yY. DRA 35,0 
40 PLOT y+40,40 DRANY 0,9€£ 
SO NEXT y 
60 FOR n=1 TO 20 


BORDER 1: 


70 LET c=10+I1INT (AND*12) 

80 LET r=S+INT (RND+*12) 

90 PRINT AT r_c; “MW ¡AT r,31-c: 
"BM ¡AT 21-5.c; “MW ¡AT 21-c,S1i-c;” 


100 NEXT n 


Las líneas 20 a 50 dibujan la red de 12x12 cuadrados. 
Se elige este espaciado de líneas para que cada cua- 
dro blanco que cae dentro de la rejilla tenga la misma 
altura y anchura que un carácter de teclado (8x8 pi- 
xels gráficos). Las sentencias RND de las líneas 70 y 80 
se eligen de manera que las coordenadas de azar pro- 
ducidas por ellas caigan siempre en la red de cruci- 
grama. La línea 90 visualiza el punto original y sus tres 
imágenes de espejo, como en el programa anterior. 
Donde se visualice un cuadrado gráfico, este ocupa un 
cuadro blanco en la red. 


El Spectrum es mucho más útil que muchos microor- 
denadores en el rastreado de errores o “fallos” en los 
programas. En algunos micros se puede teclear casi 
todo y sólo se descubre que el programa no tiene sen- 
tido al procesarlo y tener un listado de todos los erro- 
res cometidos. El Spectrum comprueba línea a línea los 
errores antes de que pueda introducirlos en un pro- 
grama. 

Aunque no pueda escribir mal una palabra clave, 
porque el Spectrum usa el sistema de tecla única, es fá- 
cil usar la puntuación incorrectamente. Si olvida un 
punto y coma después de un AT, o separa dos manda- 
tos con algo distinto de dos puntos, por ejemplo, apa- 
recerá un signo de interrogación en la línea cuando 
pulse ENTER. Su posición indica dónde está el error. 
Sólo tiene que llevar el cursor a la línea afectada y co- 
rregir el error. Si la causa de error no aparece inme- 
diatamente, compruebe que ha usado bien los manda- 
tos en cuestión. 

Este sistema de comprobar entradas no significa que 
Vd. no pueda tener un error al programar su Spectrum. 
Puede escribir un programa que acepte el Spectrum 
pero que esté aún lleno de errores. Aquí hay un pro- 
grama lleno de errores. Si lo teclea (el ordenador le 
aceptará todas las líneas) después puede ver cómo 
proceder a su depuración. 

El programa es el juego «La horca» de la pág. 27, pero 
escrito e introducido precipitadamente, de forma que 
no funciona. ¡No haga trampa buscando el programa 
correcto! Mire el listado para ver si algunos errores son 
claros; cuántos puede encontrar y intente ver cómo los 
corregiría. Después compruebe sus resultados frente a 
los errores explicados aquí. 

Teclee el programa como está e intente usarlo: 


19 BORDER 0: CLS PRINT AT a, 
12; "HANGMAN" 
2e PRINT AT _10,2;"Ask a friena 
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Cuando intente procesar el programa verá que sube 
el cuadro de título y Vd. es invitado a introducir la ca- 
dena de prueba. Pero cuando pulsa ENTER, aparece el 
informe de error “1 NEXT without FOR, 100:2”. Significa 
que el programa paró en la 2.* sentencia de la línea 100. 
LISTe el programa; verá que un bucle que contiene n 
comienza en la línea 80, pero la sentencia NEXT en lí- 
nea 100 dice NEXT 1, debiendo decir NEXT n. 
Corríjalo y pruebe de nuevo: 


PANTALLA DE PROGRAMA "FRACASADO" 


HANGMAN 


Ask a frienga to type a word 
Jiu ds 
or phrase for you to guess 


DONT LOOK AT THE SCREEN 
Press ENTER when you're finished 


Esta vez el cuadro de título y entrada de cadena de 
prueba funciona bien, pero el cuadro de título perma- 
nece cuando empieza la siguiente fase del juego. Esto 
se soluciona rápido. Añada :CLS a la línea 70. Puede ha- 
ber también obtenido un informe de error en pantalla 
"B Integer out of range”. Los caracteres representantes 
de la cadena de prueba también se visualizan en la po- 
sición errónea. Pueden haber salido del lateral de 1 


pantalla como se muestra en la última pantalla de la pá- 
gina anterior 

La línea 100 debe visualizar (PRINT) todos los caracte- 
res en la mitad de la pantalla. Debería ser: 


(32-1)/2+n 


pero en el programa se olvidó dividir por 2. 

Las instrucciones de pantalla le dicen a Vd. que un 
guión representa una letra, pero en su lugar se ha vi- 
sualizado una fila de j¡ Además, si ha introducido una 
cadena de prueba que contiene espacios, habrá visto 
que no aparecen los símbolos gráficos de cuadros 
negros. 

La línea j apareció porque el programador olvidó 
pulsar la tecla SYMBOL SHIFT para el guión. Corríjala 
y vea de nuevo la línea 90. Esta comprueba si existe 
un espacio en la cadena de prueba y, si es necesario, 
visualizar un cuadro negro, pero es enmascarado por 
cualquier impresión de la línea 100. Si Vd. añade :¡NEXT 
n al final de la línea 90, cuando se visualiza un cuadro 
negro, el programa se moverá al siguiente valor de n 
y al siguiente carácter en la cadena de prueba. 


Otros procesos de prueba 

Ahora, cuando procesa el programa, tan pronto como 
introduce su primer adivinanza de una letra, obtiene un 
informe de error "2 Variable not found, 160:1”. La única 
variable en la línea 160 es s, que representa la puntua- 
ción. Parece sencillo —visualiza la puntuación. Esta lí- 
nea, en efecto, es correcta. El error consiste en que el 
ordenador no tiene un valor inicial para s, que pueda 
visualizar. Así, añada :LET s=0 al final de la línea 70. 
Cuando haya tecleado estas correcciones, procese de 
nuevo el programa 


PANTALLA PROGRAMA "FRACASADO" 


HANGMAN 


-:tetier M: space 


E 
Press 1 to gue 


Ahora, cuando teclee una letra adivinada correcta, pro- 
bablemente aparecerá a la derecha de la pantalla. Por 
otro lado, si representa una letra que aparece al final 
de la cadena de prueba, puede aún tener un informe 
de error "B Integer out of range, 180:2”, debido a que 
el ordenador ha intentado visualizar el carácter fuera 


de la pantalla. De nuevo se ha omitido la división por 
2 de la expresión de columna, que debería ser: 


(32-1)/2+n 


El juego ahora parece funcionar, pero si mira la pun- 
tuación, verá que no aumenta. Debe aumentar en 1 des- 
pués de cada respuesta, por lo que debe añadir LET 
s=s+1: al comienzo de la línea 160. 

Aunque ahora las respuestas de una letra funcionan 
adecuadamente, el ordenador rehúsa responder cuan- 
do pulsa 1 para adivinar toda la cadena. La línea 150 
debe hacer que el programa salte a la rutina de adivi- 
nar de la palabra completa, pero en realidad llega a la 
190. que es NEXT n. Este es un fallo muy común des- 
pués que ha renumerado algunas líneas del programa 
y quizás haya olvidado renumerar los GOTO y GOSUB. 
Cambie la sentencia GOTO en la línea 150 a GOTO 210. 
Deberá aparecer la pantalla siguiente: 


PANTALLA SUPERPUESTA 


HANGMAN 


-:tetier Wi space 


CORRECT --- 
scorez1l 


TOY a 
Press 1 to guess 


Intente teclear una adivinanza correcta para toda la ca- 
dena. Se visualiza “CORRECT” sobre el cuadro anterior 
del juego. Esto se arregla cambiando la línea 220 a: 


220 IF t$=a$ THEN CLS: PRINT AT 11,12; 
“CORRECT”: AT 13112;“score=";s+1 


Ahora, el programa rehúsa parar. Cuando Vd. ha hecho 
una respuesta correcta el programa recomienza inme- 
diatamente. Así, añada :STOP al final de la línea 220. El 
programa deberá ahora marchar adecuadamente. 

Si está desarrollando un programa, la comprobación 
constante debe casi evitar que se deslicen errores en 
el listado final. Cuando esté probando un programa que 
ha escrito póngase en todas las situaciones que puede 
encontrar en su uso. Si supone que tiene la solución 
para evitar el “fracaso” en algunas circunstancias, prué- 
belas, desde luego. Probando el final de un programa 
con GOTO asegurará que cada rutina funcione real- 
mente antes de que Vd. pase a la siguiente. 


Una característica del BASIC es que: permite escribir 
programas sin mucha planificación previa. Con otros 
lenguajes se necesita un enfoque mucho más organi- 
zado. Aunque el BASIC es de fácil uso no fomenta la 
mejor programación. 

Donde se revela la buena o mala programación es 
en la velocidad de proceso. Aunque esta no sea de mu- 
cha importancia en un programa corto, adquiere signi- 
ficación cuando sus programas resultan más largos y 
complejos. Vd. querrá procesarlos tan rápidamente 
como sea posible. Aquí podrá comparar un programa 
pobremente escrito con uno muy trabajado. 


Un programa “lento” 

El siguiente programa es del tipo del usado en la pá- 
gina 23 para mostrar cómo las matrices producen ho- 
jas de cálculo en la pantalla: 


PROGRAMA “LENTO” DE TABLA DE IMPUESTOS 


SSISGAPEERK 2357 
EE 238672) /S9 


ni5) 
6,1.10,2.09,2. 
4,17,15,11,14,2 


ESA y=20 TO 164 STEP 16 
25.4: DRA 200,0 


190 PLOT 28.20: DRAYWY_ 0,144. PLO 
Ss : ¡DRA 0,144: PLOT 32,28. 


20. DRAWY 0,144: PL 
RAVL_ O 


300 PR 
C¿PFN TA 


0 Ok, 0.1 


El programa toma una lista de precios unitarios, núme- 
ros de partidas y, dado el índice de impuestos vigente, 
calcula el coste total de las partidas, en forma de cua- 
dro. Para probar la velocidad de proceso del progra- 
ma, las líneas 20 y 30 empiezan temporizando el pro- 
grama tan pronto como comienza y la línea 300 indica 
el tiempo total de proceso. 


PANTALLA “LENTA” DE TABLA DE IMPUESTOS 


y 


Pp 


aja jm 
mun jo 
mu 
y 
10 
y 
mM 


mn 
ejojo 
5 
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un 
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Time taken 2.2500002 


soe: 1 


Los precios unitarios se almacenan en las sentencias 
DATA en la línea 50, y los números de cada partida en 
la 60. Ambas matrices se dimensionan por la línea 40. 
El bucle en las líneas 70 a 100 "lee” los datos de precio 
unitario en la matriz p, unidimensional de 8 elementos. 
Un bucle similar en las líneas 110 a 140 “lee” los datos 
de números en la matriz n. Las líneas 150 a 220 borran 
la pantalla, dibujan la red de filas-columnas y visuali- 
zan las cabeceras de columnas "No” para el número y 
“SUB” para subtotal. Las líneas 230 a 290 calculan y vi- 
sualizan los valores para rellenar la red. 

Mirando el listado, puede haberse dado cuenta de 
que los dos bucles usan la variable (a) sobre la misma 
gama de valores (1 a 8). Habría sido posible combinar 
estos bucles y ahorrar espacio y tiempo. También el nú- 
mero de fila dado por 2*a+2 se calcula de nuevo en 
cada línea. Esto lleva algún tiempo. La misma expre- 
sión (p(a)*n(a)) aparece tres veces en las líneas 270 a 
290, calculada cada vez que se requiere. Todo ello 
muestra que el programa se ha pensado deficiente- 
mente y necesita mejoras; tarda entre dos segundos y 
un cuarto en procesarse. Vea ahora cuánto puede aho- 
rrar con una mejor técnica de programación. 


Técnicas para ganar tiempo 

Aquí está de nuevo el programa, pero de forma modi- 
ficada. Da la misma pantalla, pero en algunos sitios las 
sentencias son diferentes: 


blecido el valor de a por la línea 160, se hacen todos 
los cálculos necesarios para ese bucle una vez y para 
todos en la línea 170. Las variables usadas funcionan 
de la siguiente forma: 


PROGRAMA MEJORADO DE TABLA DE IMPUESTOS 


ar el número de fila en que se ha de visualizar 
el dato. 
, Almacena el producto de precio unitario y número 
- de partida (columna SUB). 


d : Almacena importe del impuesto al 15 por 100. 
e Almacena coste total (subtotal+impuesto) 


SEFCOUTT 


o 
170_LET czbrata. LET_b=p (ajznía 
:z Arama d=INT 15 4.5)/100. LET 


Fb+ 
138 trinT AT_r,4;p1a);AT ,9;mí 
¿biAT r,18;d:AT r,239;e 
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OS Ads AT 21,4;'"Time taken: 
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Lo primero que notará es que se han quitado diez lí- 
neas del listado. Para conseguirlo, se han quitado cál- 
culos innecesarios y reunido sentencias similares en 
una sola línea. 

Hasta la línea 50 los dos listados son idénticos; todos 
los datos se han escrito y reorganizado en esta línea, 
lo que es necesario al reescribir los bucles que cargan 
los datos en las dos matrices. Hay un bucle sencillo en 
líneas 60 a 90, ahorrando cuatro líneas. Ambos, precio 
y número, son “leídos” por READ pun en línea 70; por 
ello los datos en la línea 50 deben presentarse así —un 
precio seguido por un número, etcétera. 

Las líneas 110 a 150 son idénticas a las 160 a 220 del 
primero, salvo que varias sentencias PLOT y DRAW se 
han escrito en una sola eliminando tres líneas. El orde- 
nador puede manejar sentencias múltiples en una sola 
línea más rápidamente que varias separadas en líneas 
diferentes. 

Ahora hay un mayor cambio en cómo se rellena la 
red con valores. Al empezar cada bucle, una vez esta- 


La línea 180 es ahora mucho más sencilla, al haberse 
hecho ya todos los cálculos. Sólo hay que visualizar la 
variable correcta en su posición adecuada en la red. Si 
procesa el programa en su forma mejorada, la pantalla 
mostrará el tiempo así ganado: 


PANTALLA MEJORADA DE TABLA DE IMPUESTOS 


EJES sos 
as Jarfoxoa Je 79/38-88. 
a esfas[se.> [3-es|23.08] 
la osfeojs2 Je.is[e>.25] 


Time taken. 1.9799995 


9 ok, 200: 1 


Los cambios han eliminado más de un cuarto de se- 
gundo en este corto programa, más del 12 por 100. Pue- 
de imaginar el ahorro en un programa más largo con 
muchos más datos numéricos o con gran cantidad de 
cálculos. 

Al escribir un programa más largo esté pendiente de 
las repeticiones en las líneas. Con alguna planificación 
puede ahorrar tiempo de proceso y memoria. Cual- 
quier rutina grande que se repita convendrá convertir- 
la en una subrutina con GOSUB, y los cálculos que apa- 
rezcan mucho, realizarse con FN. Con todo ello y va- 
rios bucles se acelera un programa. Como la velocidad 
de proceso de sus programas se aminora por la con- 
versión en código-máquina, los ahorros en BASIC siem- 
pre tienen importancia. 


Cómo guardar (SAVE) pantallas 

A veces Vd. puede escribir un programa que produce 
una pantalla que más adelante le gustaría volver a ver. 
Con el Spectrum no necesita procesar el programa de 
nuevo para hacerlo. Los mandatos directos siguientes: 


SAVE “display” SCREEN$ 


pueden usarse con un magnetófono para almacenar la 
pantalla llamada “display” o con cualquier otro nombre 
en una cinta. El ordenador transmitirá a la cinta la in- 
formación sobre cada "pixel" en la pantalla. Cuando 
quiera verla de nuevo, pásela como siempre pero con 
estos mandatos: : 


LOAD "picture” SCREENS 


El ordenador explorará gradualmente a través de la 
pantalla de televisión, visualizando los “pixels” como en 
la pantalla original. Con este mandato, Vd. puede pro- 
ducir gráficos sin usar líneas de programación, y luego 
almacenarlos en cinta de la misma forma que un 
programa. 


Problemas con funciones 

Dos funciones, SOR y 1, incorporadas en el Spectrum, 
pueden a veces originar problemas en sus programas. 
Como el cuadrado de un número es siempre positivo, 
no puede usarse SQR con un número negativo, por eso 
si Vd. está trabajando con SQR, asegúrese de que no 
ocurra. El problema con la función exponente es me- 
nos claro; podría intentar producir un número +1 o -1 
(puede usarse en un programa para producir líneas o 
caracteres sobre la pantalla de forma impredecible): 
La función exponente debe producir un número posi- 
tivo o un número negativo, +1 o -1, cada vez, pero esto 
no sucede. No se debe a que falle la matemática sino 


GRAFICOS ALEATORIOS CON EXPONENTES 


PLOT 128,8 
LE x= (RN 


a que, igual que con SQR, la función exponente del 
Spectrum no trabaja con un número negativo. El resul- 
tado siempre será positivo —lo cual no es de gran ayu- 
da para los movimientos arriba o abajo. El mejor me- 
dio de producir el efecto es establecer un valor deci- 
mal de O a 0.99999999 con RND, y después usar una lí- 
nea IF.. THEN para producir +1 o -1, como estos: 


200 LET a=RND 
210 IF a>0.5 THEN LET a=1:1F a<=0.5 THEN 
LET a=-1 


Usada SQR con un número negativo producirá un in- 
forme de error, no así la función exponente por lo que 
no puede darse cuenta al principio por qué un progra- 
ma está procesándose de forma extraña. 


Cómo establecer límites con movimiento 
Cuando Vd. inicia gráficos de movimiento, puede en- 
contrar que no se comportan como desea cuando al- 
canzan el borde de la pantalla. Aquí hay un programa 
que muestra este problema. 

El programa anima un pequeño símbolo de platillo vo- 
lante construido por dos filas de tres caracteres cada 


PROGRAMA DE MOVIMIENTO 


SORDER S: PAPER 12: INK 7: 


Lor c+a 
Y BEEP 04.02,7 
IF <=31 OR c=0 THEN LET a=- 


BEEP 0.02,9 
GO TO se 


una con un espacio a cada lado; éstos borran las imá- 
genes anteriores cuando la nueva imagen avanza un 
espacio a la izquierda o derecha de la última posición. 
La línea 40 fija la posición inicial a (cambio de posición 
del platillo) a 1. La línea 80 fija la posición de la siguien- 
te visualización. La línea 100 comprueba si el platillo 
ha alcanzado el borde de la pantalla (c=0 o c=31) y si 
lo fue, cambia la dirección del platillo. Después retro- 
cede a la línea 50 para visualizar el nuevo: 


CARÁCTER DIVIDIDO 


Pero, como puede ver, no funciona. El platillo parece 
enrollarse bajando a la fila siguiente y después retirar- 
se hacia atrás. Es un problema corriente con progra- 
mas de animación. 

La línea 100 se ocupa de cómo se comporta el pla- 
tillo en los bordes de la pantalla. Recuerde que c re- 
presenta el número de columna del primer, o más a la 
izquierda, carácter del platillo. Cuando el último carác- 
ter alcanza el borde derecho de la pantalla, c vale 27, 
no 31. Para rectificar esto cambie la línea 100: 


100 IF c=27 OR c=0 THEN LET a=-a 


El programa ahora toma en cuenta el tamaño del obje- 
to que se animará. 


Cómo determinar el borde de la pantalla 

El siguiente programa es similar al anterior, que movía 
un objeto por la pantalla, pero ahora el objeto consta 
de un solo carácter que se mueve en ambas direccio- 
nes horizontal y vertical: 


PROGRAMA COMPROBADOR DE BORDE 


10 BORDER 1: PAPER Z: A 
20 - CET. c211: LET cu160: yz 
; sa = LET vy=1 


Eo AS LA AA 
NKEYS="v" AN > 
RE D v>0 THEN 
NKEYS="h" AND h>09 
LET h=h+0.1 dia 
69 LET rar+v. LET _ c=c+h 
1F Cc=0 THEN LET c=0: LET h= 


D IF cz31 THEN LET c=31: LET 
1 5:20 THEN LET rz=0; LET vz 
1" 2281 THEN LET £=21: LET 
PRINT_ AT _ r.c; O" 

BEEP _ 0.02,560-S:ir 
GO TO 30 


» 0:12 


Cada vez que se borra el carácter por la línea 30, la 60 
cambia los valores de fila y columna por v y h respec- 
tivamente. Estos son al principio 1. Debido a esto y al 
efecto de las líneas 70 y 80, el carácter rebota en la pan- 
talla como lo haría un balón en el interior de una caja 
vacía. 

Las líneas 40 y 50 le permiten cambiar la velocidad 
del balón. Si pulsa la tecla V y el balón va hacia abajo, 
v se incrementa en 0.1, acelerando el balón. Análoga- 
mente, si pulsa la tecla H y el balón va hacia la dere- 
cha, se aumenta su velocidad horizontal. pero pruébe- 
lo. Cuando pulsa V o H, el balón se dispara hacia el bor- 
de de la pantalla, y el programa emite un mensaje de 
error —uno de los dos: “B Integer out of range, 110:1” o 
"5 Qut of screen, 110:1”. Si Vd. no toca el teclado, el pro- 
grama marcha correctamente, probando que las líneas 
de animación se escribieron bien, pero por alguna ra- 
zón no trabajan con INKEY$. , 

Considere por un momento qué sucedería si el ba- 
lón estuviese en la posición 20,10 yendo hacia abajo a 
la derecha. En el mismo instante Vd. pulsa V. La línea 
40 aumenta v de l a 1.1. La línea 60 cambia r a 21.1 y 
call. La línea 100 comprueba si r=21; no lo es. Así, la 
línea 110 intenta visualizar el balón en 21.1.11, produ- 
ciendo el mensaje de error “Out of screen” (Fuera de 
pantalla). 

El problema es que Vd. ya no puede predecir el va- 
lor exacto de r o c cuando el balón alcanza un borde. 
Así, cambie algunas líneas para enfrentarse a la situa- 
ción y condiciones que no conoce —es decir, ni r ni c 
pueden tener valores menores que 0, r no puede ser 
mayor que 21, ni c mayor que 31. Las líneas ahora son: 


70 IF c<0 THEN LET c=0:LET h=-h 
80 IF c>31 THEN LET c= 31:LET h=-h 
90 IF r<0 THEN LET r=0:LET v=-v 
100 IF r>21 THEN LET r=21:LET v=-v 


Una vez que haya hecho estos cambios, el programa 
se comportará correctamente en los bordes. 


Uno de los problemas del Basic es que existe en mu- 
chas formas diferentes o “dialectos”. El Basic del Spec- 
trum incluye algunos mandatos —BORDER, PAPER, INK, 
por ejemplo— que no tienen otros micros. Otros pue- 
den tener efectos que se pueden conseguir con el 
Spectrum, pero con técnicas totalmente diferentes; no 
hay sitio más evidente que en programas gráficos. Esto 
dificulta la. “movilidad” de los programas —es decir, 
usar los mismos programas en diferentes ordenadores. 
Muchos programas de software comercial sólo valen 
para un tipo de máquina. 

Vd. puede considerar conveniente adaptar un pro- 
grama de una tienda o de un amigo utilizado en má- 
quinas diferentes para que pueda procesarse en su 
Spectrum. Para hacer esta “conversión”, no sólo nece- 
sita saber en qué difieren las máquinas sino también 
comprender por qué y cómo trabaja un programa. Des- 
pués puede dividir el programa en bloques o subruti- 
nas y finalmente considerar línea a línea. Pero, de la 
misma manera que no se suele hacer una traducción 
palabra a palabra, tampoco puede "traducir” cada sen- 
tencia de programa “ajeno” directamente a la senten- 
cia equivalente de su ordenador. Puede ser más eco- 
nómico en tiempo y más eficaz reescribir una sección 
del programa usando los mejores mandatos disponi- 
bles en su máquina. 


Puntos a vigilar para la conversión 
Uno de los aspectos más variables del BASIC es la pun- 
tuación y el espaciado. El sistema de comprobación de 
errores del Spectrum le asegurará que no introduce 
ninguna línea con defectos de escritura o puntuación, 
pero Vd. no querrá experimentar hasta tener todo co- 
rrecto. Punto, dos puntos y punto y coma se usan de 
forma diferente en muchas máquinas, y necesitará fre- 
cuentes cambios de puntuación antes de poder usar 
las líneas en el Spectrum. 

Recuerde que es probable que cualquier coordena- 
da de texto o gráfico necesite cambiarse. Como los di- 
versos ordenadores tienen diferentes resoluciones de 
pantalla, las coordenadas usadas para producir las pan- 
tallas rara vez podrán emplearse sin cambios en los 
programas de conversión; para ello le ayudará tener 
una nota de los límites de red de texto y gráficos de 
los otros micros. 

Al convertir programas hay que estar al acecho de 
los mandatos ligados al sistema operativo de la máqui- 
na que no tendrán sentido para el Spectrum, y, recípro- 
camente, mandatos como PEEK y POKE del Spectrum 
no se pueden usar en un programa convertido para 
otras máquinas, ya que se refieren a las direcciones de 
memoria del Spectrum. Tenga cuidado con los manda- 


CONVERSION DE PROGRAMAS 


tos que utilizan un reloj de ordenador: necesitará rees- 
cribir completamente las rutinas para usar el sistema 
temporizador del Spectrum. 

La lista de estos problemas es extensa, pero una vez 
que haya intentado la conversión de algún programa, 
aprenderá pronto qué es BASIC estándar y qué es “dia- 
lecto”. Es bueno, al convertir programas, ver el manual 
del otro ordenador para descubrir los mandatos que 
parezcan desconocidos; conocerlos de antemano le fa- 
cilitará el trabajo. 


Listados convertidos y originales 

El listado siguiente es un ejemplo de un programa es- 
crito para otro ordenador, el Micro Acorn BBC. Estable- 
ce un tablero de juegos —rutina que podría querer usar 
en su Spectrum, pero que no consigue funcionar en él 
en esa forma 


PROGRAMA TABLERO DE JUEGOS DEL MICRO BBC 


MODE2 : VDUS 

PROCSCREEN 

GCOLO, 4 : Y=832 

FOR ROW=1 TO 7? STEP 2 
LEFT=240:RIGHT=840 
PROCBOARD 
LEFT=340:RIGHT=940 : Y=Y-80 
PROCBOARD 

Y=Y-80 

NEXT ROW 

END 

DEF PROCSCREEN 
GCOLO, 129: CLG:GCOLO,6 

MOVE 240,832:MOVE 1040,832 
PLOT 85,240,192:PLOT 85,1040, 192 
ENDPROC 

DEF PROCBOARD 

FOR X=LEFT TO RIGHT STEP 200 
MOVE X,Y:MOVE X+100,Y 

PLOT 85,X,Y-80 

PLOT 85,X+100,Y-80 

NEXT X 

ENDPROC 


Casi todo en este programa es peculiar del BBC y no 
puede usarse en el Spectrum. Los mandatos de color 
y la forma en que llama a los procedimientos (clases 


PROGRAMA DE MATRICES DEL MICRO BBC 


especiales de subrutinas) son completamente diferen- A > AS 
tes. Por ello es necesario comprender cómo trabaja el O A 
programa antes de proceder a convertirlo, Le ayudará 30 a 

ver el programa marchando más que trabajar sólo con NAMES <N>=NAMES : SCORE (N>=SCORE 

el listado del mismo. E si 


j : ' ¡ o ARCE 
El modo más sencillo de convertir este programa es A ER" 


tomar cada bloque, identificar su función y escribir una INT TADCIO. 2ANEZIMAMESCN), ; SCORE 
rutina que la efectúe en el BASIC Spectrum. Las líneas 

10 a 110 forman el programa principal, que salta a dos 
subrutinas llamadas PROCSCREEN y PROCBOARD y 
que son llamadas por su nombre en vez del número 
de línea. La primera dibuja un gran cuadrado azul cla- 
ro sobre fondo rojo. El programa principal dibuja a lo 
largo de la pantalla una fila de cuadrados coloreados 
alternados (líneas 50 y 60), después la mueve abajo (lí- 
nea 70) y dibuja una segunda fila, que está desplazada 
a la derecha de la primera. Con cuatro pares de estas 
filas se hace un tablero de ajedrez. El BBC construye 
cada cuadrado con un par de triángulos, algo no dis- 
ponible en el Spectrum. 

Ahora puede reescribir el programa para procesarlo 
en el Spectrum. Como la gran parte del programa está 
en BASIC BBC, no se gana nada intentando traducirlo 
línea a línea. Es más rápido y fácil examinar el progra- 
ma y después encontrar cómo podría el Spectrum pro- 
ducir mejor el mismo resultado 


NEXT N 


El Spectrum puede producir esto pero esté al acecho 
de un típico problema de ocultación. El Spectrum di- 
mensiona las matrices de forma diferente. El BBC di- 
mensiona la matriz de nombre así 


10 DIM NAMEX(10) 


pero el Spectrum también requiere la longitud de la ca- 
dena, así: 
20 DIM N$(10,6) 
También las cadenas de los DATA en el Spectrum de- 


ben encerrarse entre comillas. Por lo demás, los pro- 
gramas son muy similares 


PROGRAMA DE MATRICES DEL SPECTRUM 


PROGRAMA TABLERO DE JUEGOS DEL SPECTRUM 


PAPER 2. BORDER 2: INF 


1 BORDE z o 

20 DIM Ns$(t10,6): DIM 5119) 

30 DATA “John” ,400,“ELten",246 
¿“Fred",11S,"George”,341,"HkHate”, 
692,"Debbie",944," James” ,443,"Ti 
na",672,"Judith",195,"Tony"*”,733 

40 FOR n=1 TO 10 

SO READ N1n)3,s (nm) 

60 NEXT n 

70 CLS 

89 PRINT AT S,8; “NAME","SCORE” 

390 PRINT AT 0,9; "XAXHXX2224%22 

100 FOR n=1 TO 10 
110 PRINT AT nm+7.8;N%£1in),s tm) 
120 NEXT n 


Más diferencias del BASIC 
El siguiente programa, también escrito en BASIC BBC, 
lista diez nombres en la pantalla. Cada uno va acom- 
pañado de un número —podría ser una lista de las me- 
jores puntuaciones de un juego. A primera vista el mé- 
todo parece muy familiar ya que usa matrices, y debe- 
ría ser adaptable para el Spectrum 


Cuando intente convertir programas que parecen usar 
mandatos compatibles con el Spectrum, cuide de no 
caer en la trampa de suponer que operan igual. Pala- 
bras como DIM, INKEY$, TAB, etc. pueden hacer la con- 
versión difícil si no se da cuenta de que muchos orde- 
nadores usan los mismos mandatos de forma diferente 


Aunque se puede escribir, editar, procesar programas 
en pantalla y almacenarlos en magnetófono, una copia 
en papel es el mejor medio de examinar atentamente 
un listado. También le permite conservar el producto 
de un proceso de programa, lo que es muy útil si se 
quieren volver a ver los resultados. Así, tarde o tem- 
prano querrá añadir una impresora a su sistema. 

La impresora Sinclair es de tipo termoelectrostático. 
Chispas que saltan desde un par de agujas móviles me- 
tálicas sobre papel especial cubierto de aluminio, que- 
man el aluminio en puntos que revelan debajo una 
capa de tinta. La forma de las chispas, y el carácter con- 
siguiente, se controlan por el ordenador. 


Impresora que permite mandatos 

La impresora se conecta al ordenador con un conector 
en el panel posterior del Spectrum. Cuando está en- 
chufada no imprime nada, a menos que Va. se lo diga. 
Las sentencias PRINT envían los caracteres a la panta- 
lla de televisión, ignorándolas la impresora comple- 
tamente. 

Hay varios medios de remitir información a la impre- 
sora. El programa de la derecha permite verlos funcio- 
nar, ofreciéndole una elección de tres mandatos de im- 
presora. Estos le permiten usar la impresora selectiva- 
mente. Puede producir una versión impresa de lo que 


La impresora ZX La impresora usada con el Spectrum se controla con 
3 palabras claves que pueden utilizarse en programas 


JONPOWNrROr+ OPORTO 


0000000000 Rp e 


Choice 
LPRINT 
LLIST 
coPY 


el programa visualiza (PRINT), o un listado impreso, o 
una copia en papel de la pantalla. 

El equivalente de PRINT de la impresora es LPRINT. 
Se usa igual, pero con él no aparece nada en la panta- 
lla. Si introduce ENTER] con el programa, los resulta- 
dos de una rutina de programa se dirigen, en su lugar, 
a la impresora y ésta producirá una copia del juego de 
caracteres del Spectrum. 

El equivalente de impresora de LIST es LLIST, selec- 
cionado en el programa introduciendo 2. Otra vez, este 
mandato sólo trabaja sobre la impresora y no produci- 
rá un listado en la pantalla. 

El método final del uso de la impresora está contro- 
lado por el mandato COPY, seleccionado en el progra- 
ma introduciendo 3. Esto hace que aparezca en la im- 
presión cualquier cosa que se visualice sobre la pan- 
talla. Este mandato se utiliza para copiar gráficos, cua- 
dros, etc 


La red de abajo muestra las coordenadas de la panta- 
lla cuando se usan los mandatos de gráficos. Un punto 
sobre la pantalla se define por dos coordenadas x,y. La 
primera, abscisa, fija la posición horizontal referida al 


lado izquierdo de la pantalla. Un carácter visualizado 
en la pantalla ocupa un área que tiene una anchura y 
altura de 8 unidades gráficas. No puede imprimirse en 
las dos líneas inferiores de la pantalla. 


RED DE COORDENADAS GRÁFICAS 


Rejillas de caracteres. Estas rejillas pue- 
den usarse para diseñar o bien un único 
carácter (encima) o un símbolo hecho 
hasta con 4 caracteres (derecha). Vd. 
puede rellenar su diseño en las rejillas y 
usar las columnas azules para listar los to- 
tales de fila. Estos se usan en los progra- 
mas con los mandatos POKE USR. Las te- 


las A a U están lib - 
racteres definidos por el usuaño. E es a 


Cada símbolo o palabra clave que usa el Spectrum está 
representado por un número de código. Hay 256 nú- 
meros de código en total (0-255), cada uno de los cua- 
les puede convertirse en un simple octeto (byte) de 
ocho dígitos binarios. La letra S, por ejemplo, se espe- 
cifica por CHR$ 83, o CHR$ BIN 1010011. El ordenador 


, q ER 
po 


A pias AA 
cursor ursor 
abajo arriba 
INVERSE OVER AT TAB E 
control control control control 


pr EC % 


LINE T 


A 


ES 
SS 


repr 


Bl < 
2 


NU 
lA 0 
8 
4 | 
EA 
MM 
MM 
O 
PSC 
nn 
00 


reconoce la forma binaria de números de código como 
instrucciones o información necesaria para realizar pro- 
gramas. Los códigos 33 a 126 se asignan a los caracte- 
res especificados por las normas ASCII. Las palabras 
clave y símbolos gráficos del Spectrum se especifican 
por códigos “de repuesto”. 


PRINT cursor cursor 

coma izquierdo derecho 

INK PAPER BRIGHT 
control 


J control control 


EudaGuN 
Appeerelrrgor 


o = 
BR : EN 
3 


Las entradas en negrita son palabras clave del BASIC. 


AND 

Permite que un programa tome un curso de acción 
particular sólo si se cumplen dos condiciones. Es una 
extensión de IF... THEN. 


AT 
Se usa con PRINT para situar caracteres sobre la 
pantalla. 


BASIC 

Beginners' All-purpose Symbolic Instruction Code; es 
el lenguaje de programación de alto nivel más 
utilizado. 


BEEP 

Hace sonar un corto tono o «beep», cuya duración y 
tono están determinados por los números que siguen 
al mandato. 


BIN 
Convierte un número escrito en binario en el 
equivalente número en decimal. 


Binario 
Un sistema de cuenta usado por los ordenadores 
basado sólo en dos números, O y 1. 


Bit 
Dígito binario —0 ó 1l. 


BORDER 
Cambia el color del área del borde de la pantalla. 


BRIGHT 
Vuelve caracteres especificados a un tono más 
brillante de su color INK, 


Búsqueda biseccionada 
Método de búsqueda de un dato específico. El dato 


se bisecciona (divide en dos) hasta que se encuentra 
el dato en cuestión. 


Byte (u octeto) 
Grupo de ocho bits. 


Cadena 
Secuencia de caracteres tratados como elemento 
simple. 


Chip 
Una pieza que contiene un circuito electrónico 
completo. También se llama circuito integrado (IC). 


CHR$ 
Traduce el número que sigue de un código de 
carácter al carácter equivalente. 


CIRCLE 
DIbuja un círculo del tamaño especificado con su 
centro en un punto especificado de la pantalla. 


CLS 
Borra el área de textos de la pantalla. 


COPY 
Instruye a una impresora para imprimir una copia de 
la pantalla. 


COS 
Función trigonométrica coseno. 


CPU 

Unidad Central de Proceso. Normalmente contenida 
en un chip llamado microprocesador, éste efectúa las 
operaciones aritméticas y de control en el resto del 
ordenador. 


Cursor 
Símbolo parpadeante sobre la pantalla, que indica la 
posición del siguiente carácter en aparecer. 


DATA 

El ordenador trata cualquier cosa que sigue a DATA 
como información que puede necesitar después en el 
programa. Se usa en conjunción con READ. 


DEF FN 
Define una función usada en cualquier parte de un 
programa por el mandato FN. 


Depuración 
Proceso de eliminar los errores o fallos de un 
programa. 


Diagrama de flujo 
Representación diagramática de las etapas necesarias 
para resolver un problema. 


DIM 

Informa al ordenador de las dimensiones de una 
matriz de forma que el ordenador conoce cuántos 
elementos contiene la matriz. 


FLASH 


Hace que los caracteres centelleen en la pantalla. 


FN 

Indica que la variable siguiente se ha de usar como 
nombre de la función. La función debe definirse por 
una sentencia DEF FN. 


FOR... NEXT 
Bucle que repite una secuencia de sentencias de 
programa un número especificado de veces. 


GOSUB 

Hace que el programa salte a una subrutina que 
empieza en el número de línea que sigue al mandato. 
La subrutina debe siempre terminarse por RETURN. 


GOTO 
Hace que un programa salte al número de línea 
siguiente al mandato. 


Gráfico de barras 
Tipo de gráfico en que los datos numéricos se 
representan por columnas. 


Gráfico de sectores 

Pantalla gráfica de datos numéricos en forma de un 
círculo dividido. El tamaño de cada sector refleja el 
tamaño del número que representa. 


Hardware 
Maquinaria física de un sistema de ordenador, distinto 
de los programas que le hacen realizar el trabajo. 


IF... THEN 
Incita al ordenador a tomar un curso de acción 
particular si se detecta la condición especificada. 


INK 
Cambia el color del texto y gráficos que aparecen en 
la pantalla. 


INKEY$ 
Vigila el teclado para ver si se ha pulsado cualquier 
tecla y, en caso afirmativo, devolver el carácter. 


INPUT 

Instruye al ordenador para que espere algún dato, 
procedente del teclado, que se ha de usar después 
en el programa. 


INT 
Convierte un número con decimales en el número 
total. 


Interface 
La conexión de hardware y software entre un 
ordenador y otra pieza de equipo. 


INVERSE 
Conmuta el color PAPER al color INK y viceversa. 


K 
Abreviatura de kilobyte (1024 bytes). 


LEN 
Cuenta el número total de caracteres en una cadena 
que le sigue. 


LET 
Asigna un valor a una variable. 


LIST 
Hace que el ordenador visualice el programa en 
curso en su memonia. 


LLIST 
Instruye a una impresora para que imprima un listado 
del programa en curso en la memoria. 


LOAD 
Transfiere un programa desde un magnetófono a la 
memoria del ordenador. 


LPRINT 

Envía lo que siga al mandato a una impresora, en vez 
de a la pantalla, de forma que se produzca sólo una 
copia de papel. 


Matriz 

Colección de datos organizados de forma que cada 
elemento quede etiquetado y pueda manejarse por 
separado. 


MERGE 

Permite que se cargue un segundo programa en el 
ordenador desde un magnetófono sin borrar el 
programa en curso en la memoria, en tanto que no 
coincidan los números de línea. 


NEW 
Elimina un programa de la memoria del ordenador. 


OR 

Permite que un programa tome un curso de acción 
particular si se cumple una de las dos condiciones 
especificadas. Es una extensión de IF... THEN. 


OVER 
Permite visualizar nuevos caracteres encima de 
caracteres existentes. 


PAPER 
Cambia el color del fondo de la pantalla. 


PAUSE 
Detiene un programa durante un período fijado por 
un número medido en quincuagésimos de segundo. 


PEEK 
Informa del número almacenado en una posición 
especificada en la memoria. 


PLOT 
Hace que aparezca un punto en la pantalla en el 
punto especificado. 


POINT 
Informa si el punto en las coordenadas que siguen se 
visualiza como color INK o como color PAPER. 


POKE USR 

Almacena un número que reprograma una tecla para 
producir un carácter definido por el usuario. Por su 
cuenta, POKE pone un número en una posición 
especificada de la memoria. 


PRINT 
Hace que lo que le sigue aparezca sobre la pantalla. 


RAM 

Random Acces Memory (memoria de acceso 
aleatorio). Una memoria cuyo contenido se borra 
cuando se corta la corriente. (Ver ROM). 


RANDOMIZE 
Fija el punto en el cual empezará la secuencia 
aleatoria (RND). 


READ 
Instruye al ordenador para que tome la información 
de una sentencia DATA. 


REM 

Permite al programador añadir notas o comentarios a 
un programa. El ordenador ignora lo que quiera que 
siga al mandato. 


RESTORE 

Reajusta el punto a partir del cual los elementos 
DATA se han de leer (READ), de forma que los 
elementos puedan usarse más de una vez en un 
programa. 


RETURN 
Termina una subrutina (Ver también GOSUB). 


RND 
Produce números entre el 0 y el 1, al azar. 


ROM 

Read Only Memory (Memoria de Sólo Lectura). Una 
memoria que se programa permanentemente por el 
fabricante y cuyo contenido sólo puede leerse por el 
ordenador del usuario. 


SAVE 

Registra sobre una cinta un programa en curso en la 
memoria del ordenador. El programa se identifica por 
un nombre de archivo. 


Sentencia 
Una instrucción en un programa. Puede haber más de 
una sentencia en cada línea del programa. 


SCREENS$ 

Mantiene los detalles de una pantalla visualizada de 
forma que se puedan guardar (SAVE) o cargar 
(LOAD). 


SIN 
Función trigonométrica seno. 


Software 
Programas del ordenador 


SOR 


Produce la raíz cuadrada del número que sigue. 


STEP 
Fija el tamaño de escalonamiento en un bucle FOR... 
NEXT. 


STOP 
Para un programa y visualiza el número de línea en 
que aparece. 


Subrutina 

Parte de un programa que puede llamarse cuando 
sea necesario, para producir una pantalla particular o 
realizar repetidamente un número de cálculos, por 
ejemplo. 


Sintaxis 

Reglas que gobiernan la manera en que deben 
ponerse las sentencias junto con el lenguaje del 
ordenador. 


TAB 

Se usa con PRINT para especificar a qué distancia en 
la línea han de aparecer caracteres. Sirve para 
disponer columnas. 


VAL 
Valora una cadena de números, y produce un 
número. 


Variable 

Una zona etiquetada en la memoria del ordenador, en 
la que puede almacenarse información y recuperarse 
después en un programa. 


VERIFY 

Comprueba que un programa que está en curso en 
memoria ha sido registrado correctamente en un 
magnetófono usando SAVE. 


Las entradas principales 
aparecen en negrita 


AND 8-9, 61 

Archivo 28, 42, 63 

ASCI (código) 12-13, 24, 
25, 60 

AT 50, 61 


BASIC 7, 20, 26, 52, 56-7, 
61 

BEEP 20, 21, 44-5, 47, 61 

BIN (binario) 61 

BORDER 11, 56, 61 

BRIGHT 61 

Bucle 

Byte 60, 61 


Cálculos 6-7, 16, 17, 21, 22, 
23, 25, 32, 33, 38, 41, 53 

CAPS SHIFT 

Carácter 9, 24, 27, 31, 37, 
38, 45, 54, 58, 62 

— definido por usuario 
37, 38, 41, 44, 63 

— de gráficos 34, 41, 55 

— de red 56, 59 

— juego de 60 

20, 422, 54, 62 

CHR$ 60, 61 

Círculo 16-17, 18, 61 

CLS 50, 61 

Color/COLOUR 34, 35, 38, 
46-7 

Co-ordenadas 9, 16, 18, 
22, 31, 33, 37, 48-9, 56, 
59 

COPY 58, 61 

COS (coseno) 18-19, 31, 
36, 61 

Cursor 6, 34, 38, 61 


DATA 23, 28-29, 38, 52-3, 
57, 61, 63 

DEF FN 6-7, 61, 62 

Depuración 14, 50-1, 61 

Diagrama de flujo 38, 62 

DIM 22, 57, 61 

Dirección 20-21, 56 

DRAW 10, 16-17, 18, 19, 

30, 33, 34, 35, 39, 61 


E (exponente) 54 
ENTER 12, 24, 35, 42, 46, 
50, 51, 58 


FLASH 61 
FN (función) 6-7, 18, 21, 
33, 41, 53, 54, 62 
FOR... NEXT 10, 32, 34, 
50-51, 62 


GOSUB 51, 53, 62 

GOTO 10, 20, 51, 62 

Gráficos 10-11, 16-19, 
30-43, 47, 48-9, 54-5, 
56-7, 58, 60 

— de caracteres 48, 59 

— de rejilla 10-11, 16, 49, 
56, 59 


Hardware 20, 58, 62 


IF. THEN 8-9, 35, 36, 43 
46, 54, 61, 62 

Impresora 20, 58, 63 

INK 11, 31, 35, 40, 46-7, 48, 
56, 61, 62, 63 

INKEY$12-13, 40, 55, 57, 
62 

IMPUT 11, 12, 25, 31, 33, 
35, 62 

INT (entero) 6, 14, 23, 48, 
62 

INVERSE 62 


Juegos 9, 10, 11, 15, 27, 
38-43, 46, 48 


LEFT$26 
LEN 28, 27, 62 
LET 51, 62 

LIST 38, 58, 62 
LLIST 58, 62 
LOAD 54, 62, 63 
LPRINT 58, 62 


Magnetófono 20, 42, 54, 62 

Máquina, código de 53 

Matriz 22-3, 24, 25, 29, 31, 
52, 57, 61 

Memoria 20-21, 42, 43, 53, 
56, 62, 63 

Mensaje de error 50-51, 
54 

MERGE 42-3, 62 

MIDS$ 26 

Movimiento, 13, 20, 44-5, 

46-7, 54-5 


NEW 42, 62 VAL 28, 63 

Variable 10, 21, 24, 25, 35, 
OR 8, 56-7 38, 40, 43, 44, 45, 51, 52, 
OVER 62 53, 55, 62, 63 

— ristra 24, 26-7, 28, 
PAPER 11, 35, 40, 46-7, 56, 50-51, 62, 63 


62, 63 — Velocidad 7, 10, 15, 19, 
PAUSE 15, 20, 25, 36, 39, 20, 25, 28, 35, 45, 47, 

47, 62 52-3 
PEEK 20-21, 56, 62 VERIFY 63 
PI 16-17, 31 


Pixel 31, 49, 54 

PLOT 16, 17, 18, 32, 33, 37, 
46, 53, 63 

POINT 46-7, 63 

POKE 20, 56, 63 

—USR 59, 63 

PRINT 11, 22, 25, 35, 38, 
39, 40, 41, 43, 49, 59, 61, 
63 

—CHR$ 11 

Puntuación 50, 56 


RAD (radián) 17 

RANDOMIZE 14-15, 63 

READ 23, 25, 28, 29, 38, 
52-3, 61 

Reloj 20-21, 56 

REM 40, 41, 63 

Remuneración 51 

Resolución 31, 32, 33, 41, 
56 

RESTORE 63 

RETURN 41, 63 

RIGHTS 26 

RND 9, 14-15, 48-49, 63 

RUN 14, 19, 20, 21, 32, 37, 
38, 39, 42, 45, 50-51, 52, 
53, 54, 56, 57, 58 


SAVE 39, 54, 63 

SCREENS 54, 63 

SIN (seno) 18-19, 31, 63 

Sistema operativo 56-7 

Software 56, 62, 63 

Sonido/SOUND 44-5 

SQR (raíz cuadrada) 6, 54, 
63 

STEP 10-11, 17, 19, 32, 34, 
63 

STOP 51, 63 

Subrutina 7, 10, 24, 38, 39, 
40, 47, 53, 56, 57, 63 

SYMBOL SHIFT 6 


TAB 57, 63 
Teclado 6, 12-13, 62 
TO 26 


£k...para todo el que quiera llegar a ser 
mejor programador. El método de 
enseñanza es infalible 3) 


Nigel Searle, Director 


SINCLAIR RESEARCH 


Original y apasionante curso de programación para 
los usuarios del ZX Spectrum. 


Más de 150 fotografías de pantallas con listados de 
programas que le muestran exactamente lo que aparecerá 
en su pantalla. 


Otros títulos de la serie: 
e ZX Spectrum +, 
e Apple lle, 
e Commodore 64 


"un Microlextos 
=— 


